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CAPITULO 1 



CONCEPTOS INICIALES DE PROGRAMACION EN EXCEL MACROS 




Tornado de: <http://commons.wikimedia.Org/wiki/File:Teachers_of_KMJH_2007-1 2- 

11.jpg> 

Ana Luisa, profesora de Lengua de secundaria, tiene a cargo 10 salones de 25 
alumnos cada uno. Es fin de bimestre, ella esta sacando promedios por mas de 4 
horas y aun no termina. Debe registrar notas y, con la ayuda de una calculadora, 
obtener el promedio de cada alumno, luego, debe ver cuales son los alumnos que 
obtuvieron el mejor puntaje por seccion y, finalmente, hacer la relacion de los 3 
mejores por grado. Esta actividad le demanda demasiado tiempo, es aburrida y 
mecanica, pero implica concentration y debe estar muy pendiente de no cometer 
errores. ^Como podemos aliviar el trabajo de Ana Luisa para que pueda invertir 
menos tiempo en esta actividad y dedicarlo a la planificacion de otras actividades 
escolares? 

Antes de empezar con el desarrollo del capitulo, te invitamos a que leas el siguiente 
articulo sobre una de las peliculas mas famosas de los hermanos Wachowski: The 
Matrix. 
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Wake up Neo 
The Matrix has you. . . 
Follow the white rabbit. . . 
Knock knock Neo. 



Al ver este mensaje en su ordenador, Thomas A. 
Anderson (Keanu Reeves), programador 
informatico y hacker que usa el alias Neo, queda 
totalmente intrigado: ^que es Matrix? y ^por que 
me posee? A partir de ese momento Neo 
confirma la hipotesis de que existe algo mas y es 
Morfeo (Laurence Fishburne) quien lo conducira a la respuesta que tanto ansia 
conocer. 

Neo toma la pastilla roja que le ofrece Morfeo, la cual implica olvidar su vida actual y 
descubrir que el mundo en el que creia vivir no es mas que una simulacion virtual a 
la que se encuentra conectado mediante un cable enchufado en su cerebro. Los 
miles de millones de personas que viven (conectadas) a su alrededor estan siendo 
cultivadas del mismo modo para poder dar energia a las maquinas. 
Esta ilusion colectiva (o simulacion interactiva) es conocida como the Matrix,la 
matriz. 

Morfeo le explica en que consiste la realidad: se encuentran cerca del ano 2199 y 
la humanidad esta esclavizada por las maquinas, que tras el desarrollo de 
la inteligencia artificial se rebelaron contra su creador: el hombre. Las maquinas, 
tras veneer la guerra y quedar privadas de la energia solar que necesitaban para 
funcionar, ahora dominan la superficie terrestre y emplean a la especie humana 
como fuente de energia, cosechandolos 
en grandes campos de cultivo. 

El mundo virtual de Matrix se convierte 
en el campo de batalla donde Neo 
tendra que combatir contra sus 
agentes, que son unos programas en 
forma humana capaces de poseer a 
cualquier habitante de Matrix que la 
resistencia no haya liberado, y en 
particular contra el temible agente 
Smith (Hugo Weaving). Estos intentan 
impedir que los rebeldes rescaten a las 
personas que estan conectadas, ya que 
estan programados para capturar a 
cualquier intruso que altere la realidad de Matrix. En este mundo virtual, los seres 
humanos que son conscientes de la verdadera esencia de lo que les rodea, son 
capaces de desafiar parcialmente las leyes fisicas y realizar hazanas asombrosas. 

En la escena final, Neo esta de vuelta a Matrix y habla por telefono (sabiendo que la 
esta interviene la llamada), para decirle a las maquinas que ahora las cosas van a 
cambiar y que va ensenar a la gente "lo que no quieren que vean". 

Tornado de: "The Matrix". Wikipedia, la enciclopedia libre. Fecha de consulta: 30/10/2011 

< http://es.wikipedia.org/wiki/The Matrix > 

Ahora bien, asi como la Matrix a traves de un sistema de codigos y programas 
controla y hace posible que exista un mundo ficticio, las macros en Excel son 
generadas a traves de un lenguaje de programacion llamado Visual Basic para 
Aplicaciones (VBA). 
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tSabias que...? 



VBA es una version modificada del lenguaje de 
programacion Visual Basic que trabaja de forma 
integrada con el libro de trabajo de Excel. 




En este capftulo, aprenderas mas 
acerca de este lenguaje, 
asimismo, crearas y ejecutaras 
tus propias macros. 



Tu trabajo 




A continuation, te presentamos un pantallazo del primer producto que elaboraras 
con Excel macros, el cual te permitira calcular los promedios rapidamente, solo 
tendras que ingresar los datos y automaticamente la macro te mostrara el promedio 
final y las personas que han obtenido los 3 primeros puestos. 




Concurs© de Mate mat ica 

Eta pa Final 




Milagros Cordova 



Walter Torres 



Marco Labajos 



Juan Manuel Rojas 



IS 



17 



17 



15 



IS 



14 



14 



14 



16 



20 



IS 



IS 



17.7 



16.3 



16.0 



Calcular 



Mostrar 



10 



11 



12 



13 



14 



Frank Gutierrez 



14 



17 



16 



15.7 



Sofia Diaz 



16 



16 



15 



15.7 



Rosario Conlreras 



12 



20 



15 



15.7 



Carlos Roca 



10 



13 



20 



14.3 



Arturo Villa 



11 



11 



13 



11.7 



Adriana Cespedes 



12 



10 



12 



11.3 



Resultado 



Primer Puesto: Milagros Cordova^ nota=17,7 
OK 




En este capftulo, tu trabajo consistira en elaborar la tabla de 
puntuaciones y premiacion de los ganadores de la etapa 
final del concurso de matematica de tu colegio. 



Antes de empezar con el 
desarrollo del capftulo, debes 
recordar que es una macro. 
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1.1 <?,Que es una macro? 



Una macro es una herramienta que permite automatizar varias tareas cotidianas, es 
decir, el usuario podra evitar la ejecucion repetitiva de estas tareas porque solo 
tendra que ejecutar esta para poder realizarlas de forma automatica. 



Considera la grabacion de una macro cuando observes que pulsas 
las mismas teclas y realizas una secuencia de opciones en forma 
repetitiva. 



A 



Hazlo tu mismo: 



Escribe algunos ejemplos en los cuales podnas aplicar macros. Discutelo con tus 
companeros de clase: 



1.2 Planificando las actividades para la grabacion en macros 

Antes de iniciar la grabacion de una macro, debes planificar las actividades a 
realizar, tales como la seleccion de hojas, celdas, herramientas u objetos que 
formaran parte de esta. 



Hazlo tu mismo: 

Descarga de la plataforma el archivo puntuaciones.xlsx. 





A 


B 


c 


D 


E 


F 


G 


1 




Concursode Mate mat ica 


2 


Eta pa Final 


3 




4 EH 














5 


1 














6 


2 














7 


3 














S 


4 














9 


5 














10 


6 














11 


7 














12 


S 














13 


9 














14 


10 
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Ingresa los nombres de los participantes de la competencia, asi como su seccion y 
las notas obtenidas en cada prueba. 



Con esta information, se desea generar una macro que haga lo siguiente: 

1) Calcule el puntaje promedio de cada uno de los participantes. Este puntaje debe 
ser redondeado a un decimal. 

2) Ordene los puntajes promedio de mayor a menor. 

3) Cambie el color de fuente y relleno a las celdas que contienen los puntajes de 
los 3 primeros lugares del concurso de la siguiente manera: 







Color de fuente 


1 


Amarillo 


Rojo 


2 


Canela fondo 2 


Verde 


3 


Purpura entasis 4 claro 
60% 


Azul oscuro texto 2 



A continuation, escribe la secuencia de pasos que vas a realizar para generar esta 
macro: 

Paso 1 : Ubicate en la celda G5 

Paso 2: 

Paso 3: 

Paso 4: 

Paso 5: 

Paso 6: 

Paso 7: 

Paso 8: 



1.3 La realizacion del proceso de grabacion de macros 

La grabadora de macros almacena acciones que el usuario realiza o comandos que 
elige mientras trabaja. 

Para empezar a grabar una macro, debes hacer lo 
siguiente: 



Ubica y selecciona 
esta opcion. 



tarisar | Vista | \© o |5> 

Barra de formulas W H b 



JH rn ^=| HDividir JJVerenparalelo Q HE) 



.! Ocultar J + Desplazamiento sincronico 

Titulos Zoom 100% Ampliar Nueva Organizar Inmovilizar Guardararea Cambiar Macros 

seleccion ventana todo * □ Mostrar ^ Restablecer posicion de la ventana detrabajo ventanas - L_£_J 

Zoom Ventana Macros 
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|"2~| Luego, haz die en la lista del boton Macros y elige 
Grabar macro. 



ardararea Cambiar 
etrabajo ventanas T 



Macros 



Ver macros 



Grabar macro.. 



Usar referencias relativas 



a Para darle a la macro un nombre distinto del que 
sugiere Excel, digita un nombre en el cuadro 
Nombre de la macro. 



Nombre de la macro: 
Macro l| 

Metodo abreviado: 

CTRL+^ 
Guardar macro en: 
Este libro 



ilmportante! 

Puedes asignar a la macro un metodo abreviado de teclado. Los metodos 
abreviados pueden ser CTRL+ cualquier letra o CTRL+ MAYUS+ cualquier 
letra. Recuerda que estos reemplazaran a los metodos abreviados de Excel 
mientras este abierto el libro que contiene la macro. 

Para que una macro este disponible todo el tiempo, pulsa el icono Grabar 
macro; despues, en la opcion Guardar macro en, elige la alternativa Libro de 
macros personal, de esta forma el libro estara siempre abierto. 




□ 



Realiza las acciones que se van a grabar y, 
cuando hayas terminado, haz die en la lista del 
boton Macros y elige Detener grabacion. 



Hazlo tu mismo: 



re 



irdararea Cambiar 
trabajo ventanas T 



Macros 



Ver macros 



f~H Detener grabaci6n ^ 
II Usar referencias relativas 



Utilizando el archivo puntuaciones.xlsx, aplica los pasos que habias definido en la 
etapa de planificacion y graba la macro de nombre Calcula_Ganador. Asigna a esta 
macro un metodo abreviado con las teclas CTRL+Mayus+J y guardalo en el libro de 
macros personal. 
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1.4 Ejecutando una macro 



Cuando se ejecuta una macro, la secuencia de instrucciones grabadas indica a 
Excel lo que debe hacer. La grabadora de macros repite lo que el usuario realizo asi 
como una grabadora de audio repite lo que una persona haya hablado. 



Para ejecutar una macro, debes hacer lo siguiente: 

[T] Ubicate en la celda donde iniciaras la ejecucion de la 
macro y, luego, selecciona la siguiente opcion: 



j"2~| En la siguiente ventana, selecciona 
la macro que deseas ejecutar y 
haz die en Ejecutar. 



E5 

Guardar area Cambiar 
d e trabajo ventana s T 



Macros 



Ver macros 
Detener grabacfci 

Usar referencias relativas 



M a c ro 



Hazlo tu mismo: 



Macros en: Todos los libros abiertos 
Descripcion 



A continuacion, realiza los siguientes 
pasos antes de ejecutar la macro 
Calcula_Ganador. 

• Cierra el archivo 
puntuaciones.xlsx (no guardes 
los cambios). 

• Cierra Excel y, cuando aparezca el siguiente mensaje, haz die en la opcion 
Si. 



Nornbre de la macro: 



PERSONAL-XL 5B i^CmiA_G«**cki! 
PQRS0HA1..H. S6 lCafei*aj£flrw!fct 



Ejecutar 
[ Paso a paso 
Modificar 



Elirninar 



| Opdones... 



Gancelar 



Microsoft Office Excel 



■\ iDesea guardar los cambios realizados al libro de macros personal? Para guardar y disponer de las macros la proxima vez que inicie Microsoft Office 
» \ Excelj haga die en Si, 



Cancelar 



Ahora si, ejecuta la macro Calcula_Ganador con los pasos que has aprendido 
anteriormente. 



1.5 Control de referenda en una grabacion 



Una referenda es la ubicacion de una celda en Excel. Existen dos tipos de 
referencias: absoluta y relativa. 

Para que puedas descubrir la diferencia entre la grabacion de macros con 
referencias absolutas y relativas, te invitamos a realizar las siguientes acciones: 



15 



PONTIFICIA 

UNIVERSIDAD 

CATOLICA 

DEL PERU 



Manejo de hojas de Calculo con Excel 2010 - Nivel Avanzado 



DESCUBRE Y APRENDE 



1) Abre una hoja de Excel e ingresa los siguientes datos en las celdas indicadas: 





A 


B 


C 


D 


1 




Prueba 1 




Prueba 2 


2 


Letras 


25 




30 




Ciencias 


35 




20 


4 











2) Selecciona la celda B3 e inicia la grabacion de la macro. 

3) Selecciona la celda B4 y escribe la formula =B2+B3. 

4) Deten la grabacion y borra el contenido de la celda B4. 

5) Selecciona D3 y ejecuta la macro. 

^En que celda aparece el resultado? 

6<3ue tipo de grabacion crees que 
aplicando? 

6) Borra el contenido de la celda B4. 

7) Selecciona la celda B3 e inicia la grabacion de una nueva macro. 

8) Ubica y selecciona la siguiente opcion: 



se 



esta 



rdar area Cambiar Macros 
trabajo ventanas T 



[1^ Ver macros 
3 Grabar macro., 



Usar referencias relativas 



9) Selecciona la celda B4 y escribe la formula =B2+B3. 

10) Deten la grabacion y borra el contenido de la celda B4. 
1 1 )Selecciona D3 y ejecuta la macro. 

^En que celda aparece el resultado? 

^Que tipo de grabacion crees 
aplicando? 



que 



se 



esta 



En conclusion: Si guardas una macro grabada con referencias absolutas, 
Excel Neva un control de la posicion exacta de cada celda seleccionada. 
En cambio, si grabas una macro con referencias relativas, Excel llevara 
un control de cada celda seleccionada en relacion a la seleccionada 
anteriormente. 
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[Ejemcio^de^plicacion 1 .M j^ 

1) Crea una macro en la celda A1 y colocale como nombre relleno. Esta macro 
debe hacer lo siguiente: 

a) Desplazar el cursor hasta la celda A5 

b) Rellenar esta celda de color amarillo 

2) Deten la macro. 

3) Ubicate en la celda C2 y ejecuta la macro. 

^Cual ha sido la celda afectada al ejecutar la 
macro? 

En la grabacion de esta macro se esta usando una 
referenda 

4) Ahora, vas a crear una nueva macro, para ello ubicate en la celda E2 y 
selecciona la opcion usar referencias relativas. 

5) Luego, graba la macro y colocale como nombre "texto". Esta macro debe 
hacer lo siguiente: 

a) Desplazar el cursor hasta la celda E10 

b) Rellenar esta celda de color amarillo 

6) Deten la macro. 

7) Ubicate en la celda H7 y ejecuta la macro. 

^Cual ha sido la celda afectada al ejecutar la 
macro? 



1.6 Activando las herramientas de Visual Basic 



Para la creacion y manejo de macros avanzadas, Excel posee un conjunto de 
herramientas ubicadas en una ficha llamada Programador. Esta ficha no se 
encuentra disponible dentro de la instalacion basica de Excel 2010. Para activar 
esta ficha, debes hacer lo siguiente: 





trabajo excel - Microsoft Excel 




Opciones de Excel 









Guardar 
Id io ma 
Avanzadas 



Personalizar cl 



Barra de herramientas d< 
Complementos 
Centro de confianza 



*h| Personalice esta cinta de opciones. 

Comandos disponibles ere© 

Comandos mas utilizados | ▼ | 



I Abrir 

Abrir archivo reciente... 

Actualizartodo 
i Administrador de nombres 

Aumentar tamano de fuente 

Calcular ahora 

■ Color de relleno 
| Combinary centrar 



Deshacer 

Disminuirtamano de fuente 

Eliminarceldas... 

Eliminar columnas de hoja 

Eliminarfilas de hoja 

Establecer area de impresion 

Filtro 

Formas 

Formato condicional 
Formato de celdas... 

Guardar 



Personalizar la cinta de opciones: . 



Fichas principales 



3 



H g]Inicio 
S g]Insertar 

Diseno de pagina 
Formulas 
H [7] Datos 
+ J Revisar 




Selecciona la 
siguiente opcion 



| Nueva ficha | | Nuevo grupo ] [ Cambiar nombre... 

Personaliz; 



[ Restablecer ^ | i 
Imciortar o exportar •» 



Haz click 
aquf 



Cancelar | 
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DESCUBRE Y APRENDE 



Explora las herramientas de Visual Basic y relaciona las columnas: 



Elemento 



Funcionalidad 



Usar referencias relativas 
Insertar controles 
Editor de Visual Basic 
Grabar macro 
Ver macros 
Seguridad de macros 



1.7 Asignando un boton a una macro 

Con la herramienta Insertar controles, es posible asignar un boton a una macro, 
para que se pueda ejecutar con solo hacer die en este. 



Para lograr esto, debes hacer lo siguiente: 



Ubica y 
selecciona el 
siguiente 
elemento. 



Insertar 



Modo 
Diseno 



XM 



Controles def 

CI A* 2 abl J J 
Controles ActiveX 

jJp -Mm * 



Si deseas modificar 
el texto 
predeterminado de 
un boton, solo 
debes hacer die 
sobre dicho texto y 
modificarlo. 




w 
A 



0 



Utilizando el mouse 
dibuja el boton en la 
position que desees. 




Boton 1 
□ 



Asignar macro 



11. 



Nornbre de la macro: 



PESSONAL.XLSEltafcula Ganwfar 



Asigna la macro que 
deseas ejecutar y haz 
click en aceptar. 



□ 



Nuevo 



Grabar., 



Macros en: Todos los libros abiertos 
Description 



Aceptar 



Cancelar 
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Hazlo tu mismo: 



En el archivo puntuaciones.xlsx, asigna un boton a la macro Calcula_Ganador y 

prueba su ejecucion. Coloca como texto del boton la palabra "Calcular". 



Hasta el momento tu 
trabajo debe quedar 
asi: 



1 


Concursode Matematica 


2 


Eta pa Final 


3 




4 EH 














5 


10 


Milagros Cordova 


B 


IS 


13 


16 


17.7 


6 


2 


Walter Torres 


D 


17 


14 


20 




7 


1 


Marco Labajos 


C 


17 


14 


18 


16.3 


8 


6 


Juan Manuel Rojas 


C 


16 


14 


IS 


16.0 


9 


4 


Frank Gutierrez 


G 


14 


17 


16 


15.7 


10 


3 


Sofia Diaz 


A 


16 


16 


15 


15.7 


11 


5 


Rosario Contreras 


E 


12 


20 


15 


15.7 


12 


7 


Carlos Roca 


C 


10 


13 


20 


14.3 


13 


g 


Arturo Villa 


B 


11 


11 


13 


11.7 


14 


8 


Adriana Cespedes 


A 


12 


10 


12 


11.3 



Calcular 



1.8 Configuracion de seguridad en las macros 



En algunos casos, Excel 2010 esta programado para que la seguridad en las 
macros sea alta, lo cual hace imposible que se puedan ejecutar. Si vas a ejecutar 
programas macro, deberas cambiar la configuracion de seguridad; para ello, debes 
hacer lo siguiente: 




Ubica y selecciona la 
siguiente opcion. 



agina 



Formulas 



Datos 



Revisar 



Vista 



Programador 



aero 

Usar re*ferencia5 relativas 

Visual Macros , 

Basic liS Seguridad de macros 

Codigo 



^ Propiedades 
Ver codigo 



Complementos Complementos Insertar Modo 

COM T Diseno 1 Ejecutar cuadro de dialogo 

Complementos Controles 



Centro de confianza 



Editores de confianza 
Ubicaciones de confianza 
Documentos confiables 
Complementos 
Configuracion de ActiveX 



Configuracion de macros 

Vista protegida 
Barra de mensajes 
Contenido externo 
Configuracion de bloqueo 
Opciones de privacidad 



; Deshabi 



irtodas las macros sin notificacion 



Selecciona 
esta opcion. 



s (no recomendado; puec 



Configuracion de la macro del programador 

I I Confiar en el acceso al modelo de objetos de proyectos de VBA 



Haz die 
aquf. 



Aceptar ] | Cancetar | 
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1.9 Visual Basic para aplicaciones - VBA 

Pertenece a una version de Visual Basic que viene incluida en Excel. VBA es un 
lenguaje de programacion estructurado con secuencias de comandos o lenguaje de 
macros. Una macro de VBA no puede ejecutarse independientemente del Excel. 

Con ayuda de tus companeros, averigua algunas tareas que puedes realizar a 
traves de un programa desarrollado en VBA. 



Terminologia de VBA 

Al trabajar con Visual Basic para aplicaciones, sera necesario que conozcas el 
significado de algunos terminos de importancia: aplicacion, formulario, tiempo de 
diseno, tiempo de ejecucion, objetos, propiedades, metodos y eventos. 

a. Aplicacion 

Es el programa que has desarrollando utilizando las herramientas de VBA. 



b. Tiempo de diseno 

Es el momento en que se esta disenando la aplicacion. 

c. Tiempo de ejecucion 

Es el momento en que estas ejecutando la aplicacion. 

d. Formulario 

Es el area donde se colocan los objetos graficos para la aplicacion. Un 
formulario esta compuesto por controles. 
Por ejemplo: 



Datos del participants 



■Nivel 

; C Primaria 

; C Secundaria 
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e. Objetos 



Un objeto representa un elemento de una aplicacion, por ejemplo, una hoja 
de calculo, una celda, un formulario, un control, etcetera. 



objeto 

baton 



evento 



metodo 



~3 



Click 



Private SSuto boton__Click ( 

ho ton. Caption = "Guardar" 
End 3 u} j 



t 

propiedad 



f. Propiedades 

Son las caracteristicas de un objeto, las cuales logran definir su 
comportamiento. 

g. Metodos 

Son las acciones que un objeto puede realizar. Un metodo es un 
procedimiento o funcion que se asocia a un tipo de objeto (boton, caja de 
texto, etcetera). 



h. Eventos 

Es una notification de que algo ha ocurrido con el objeto. Son respuestas a 
acciones del usuario, por ejemplo, pulsar teclas, eventos del mouse (al hacer 
die, doble die, etcetera) o elegir opciones de un menu. 



SaLudo.xLsm - UserForml (Cridigo) 



t| J Change 



Private Sub TextBoxl_Change ( ) 



Eventos del 
control TextBox 




Change 
DblClick 

DropButtonClick 
Enter 
Error 
Exit 

|KeyDown 



KeyUp 
MouseDown 
MouseMove 
MouseUp 



1 



En VBA se pueden producir dos tipos de eventos: los eventos 
iniciados por el usuario y los iniciados por el sistema. 
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1.10 



El editor de VBA 



El editor de Visual Basic (VBE) contiene todas las herramientas de programacion 
necesarias para escribir y editar programas que, luego, podras ejecutar en tu libro 
de trabajo de Excel. 

Para ingresar al editor de VBA, debes hacer die en el icono ^ que esta ubicado 
dentro de las herramientas de Visual Basic. 



Esta es la ventana que se presenta al ingresar al editor de VBA: 



I Archrvo Edicion Ver Insertar Formato Depuracion Ejecutar 

;Bi-fl A --i ^ ^ "i r> > u a V. & t 



Complementos Ventana Ayuda 



Proyerto - VBAProject xj 

us a i 



B ® VBAProject (trabajo exc 

B S Microsoft Excel Objetos 
Q Hojal (Hojal) 
| f]Hoja2(Hoja2) 
B Hoja3 (Hoja3) 
S ThisWorkbook 



Propiedades - Hojal Xj 



Alfabetica | Po r categorias | 



DisplayPageBreak False 
DisplayRightToLef False 
EnableAutoFilter False 
EnableCalculabon True 
EnableFormatConTrue 
EnableOutlining False 



EnableSelection 0 - xINoRestrictt 



Averigua... 




dComo se puede acceder 
al editor de VBA utilizando 
el teclado? 



Responde: 



Una vez dentro del editor, podras agregar los elementos y utilizar las herramientas 
necesarias que te permitan desarrollar tu aplicacion o programa en VBA. 
Aqui puedes ver los principales elementos del editor de VBA: 
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Directorio de 
proyectos 



Panel de 
propiedades 



Barra de menu Barra de herramientas 



r. rrlar fftnMfto 



J 3 ^ 

- ^ VBftPr.ijttt (LlbhC. I > 

8 MO 14* (HOJ*3[J 

- ^3 R«rvsiiAi 



— ZSUbrol -UserFomil (User Form) 



- i t ; ■ i I 



U Firm I Lte-ri^c* 1 !! 



^1 



□ &H80MD0CP& 

■ 4H8fflMOCi]2& 
0 - f mflcfdwStvtel 

0 . f IftC jKieAlFfllll 
330OQ 
jTiue 

■ 4HS0tMCO32S, 



BMfaGlltai 
cycle 

Ltft 0 
PidtLre {rk-igmo) 



IherFprml 



Formutaria 



gj'i Caja de controles 

u.iif to de- herromtent «■* Q 
C cr / • i4e> : | 

rr a * a a f 

i il s rg 



Pltbfol Uturforml (Crfdlgo) 

TextBoxl 



~T| [Chang* 



egg 

3 



End. sm» 



Private Sub UaeiFornJl icfcO 
End, 5ut> 

LI I 



Area de programacion 




1.10.1 Barra de menu 



Proporciona las herramientas necesarias para desarrollar, probar y archivar la 
aplicacion. A continuation, veras las principales opciones de la barra de 
menu: 

• Menu Archivo: contiene las opciones que te permitiran administrar los 
archivos de trabajo de tu aplicacion. 

• Menu Ver: permite visualizar diversas ventanas del entorno. 

• Menu Insertar: permite insertar los elementos necesarios para 
desarrollar tu aplicacion, tales como un procedimiento, un formulario, 
un modulo, etcetera. 

• Menu Depuracion: aqui se encuentran todas las opciones que te 
ayudaran a verificar errores en tu programa. 

• Menu Ejecutar: principalmente, se utiliza para ejecutar o detener la 
ejecucion de un programa. 

DESCUBRE Y APRENDE 



1) Explora las opciones de la barra de menu de VBA y completa la tabla. 



Icono 


Descripcion 


Menu 














► 
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2) Explora y completa el uso de las siguientes teclas o combinaciones de 
teclas dentro del editor de VBA: 

F5: 

F8: 

CTRL+F8: 

F2: 

CTRL+lnterrrumpir: 



1.10.2 Barra de herramientas 



Permite activar las tareas mas comunes sin necesidad de utilizar los 
menus. 

Es un conjunto de pequenos botones (iconos) situados debajo de la 
barra de menus. Su funcion es agilizar la eleccion de las opciones mas 
utilizadas. 



Archivo Edicion Ver Insertar Formato Depuracion Ejecutar Herramientas Complementos Ventana Ayuda 

ill - fl h -j ^ ft q v ► aa a jg ft' Q | 



1.10.3 Explorador de proyectos (ventana de 
objetos) 

Muestra un diagrama de arbol con los 
libros de trabajo actualmente abiertos en 
Excel, donde cada libro es un proyecto. 
Desde esta ventana se pueden anadir, 
seleccionar o eliminar los objetos del 
proyecto. 



fi\ Microsoft Visual Basic para Aplicaciones - trabajo excel.xlsx - [Hojal (Codigo)] 



Archivo Edicion Ver Insertar Formato Depuracion Ejecutar Herramientas 

iil-d H^a ^ ► aa a ^ J» *£" >- Q 




| Hojal 
DisplayPageBreak True 
DisplayRightToLef False 
EnableAutoFilter False 
EnableCalculation True 
EnableFormatCon True 
EnableOutlining False 
EnablePivotTable False 
EnableSelection 0 - xlNoRestrictii 
Hue [ Hojal 
SaollArea 

StandardWidth 10.71 

xlSheetVisib 



Averigua... 




s ' 

J Si no puedes ver el 

explorador de 

proyectos, ^como lo 

habilitas? 

- 



Responde: 
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1.10.4 El formulario 

Es la ventana donde se disena la aplicacion. El formulario es un 
contenedor en el que se colocan los controles (etiquetas, cuadros de 
texto, cajas de verification, botones de option, listas, etcetera). 
Contiene todos los elementos que se esperaria encontrar como parte 
de la ventana de un programa. 



titulo 



boton cerrar 




UserForm! 



cuadricuta de 
diseno 



La cuadncula de diseno 
permite alinear los controles 
facilmente, al mismo tiempo 
que disena su interfaz. 



V 



1.10.5 La caja de controles 



A 



Se utiliza para el diseno de la interfaz de la aplicacion. En ella se 
encuentran las herramientas necesarias para el diseno y creation de 
los controles. Ademas, incluye un puntero para su manejo. 



Cuadro de herramientas 



□ 



Controles 


I 




abl m m W 




a -j ^^j 


3 II 





p 



ercicio de aplicacion 2 



Abre una hoja de Excel, ingresa al editor de VBA y crea el siguiente 
formulario utilizando los elementos de la caja de controles. 



UserForml 



0 



Label 1 



"3 



CommandButtonl 



Escribe el nombre de los controles que utilizaste: 



L 
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1.10.6 La ventana de propiedades 

Una propiedad es una caracteristica de un objeto tal como su nombre o color. 
A traves de esta ventana se configuran las propiedades de un objeto en 
tiempo de diseno. 



Propiedades - Label 1 
| Label 1 Label 
Alfabetica j p or categorias | 




(Name) 


Label 1 


A- 


Accelerator 






AutoSize 


False 




BackColor 


□ &H3000000F& 




BackStyle 


1 - frnBackStyleOp 




BorderColor 


M &HB0000006& 




BorderStyle 


0 - frmBorderStylel 




Icaption 


Label 1 




ControlTipText 






Enabled 


True 




Font 


Tahoma 




ForeColor 


■ &H80000012& 




Height 


18 




HelpContextID 


0 




Left 


12 




Mouselcon 


(Ninguno) 




MousePointer 


0 - frmMousePointt 




Picture 


(Ninguno) 




PicturePosition 


7 - frmPicturePositi 




SpecialEffect 


0 - frmSpecialEffec 




Tablndex 


0 




TabStop 


False 


Tag 




TextAlign 


1 - frmTextAlignLel 




Top 


12 



jlmportante! 



Se asigna un nombre predeterminado a cada 
uno de los controles existentes de un formulario. 
Por ejemplo, el primer control Label que se 
adicione al formulario se denominara LabeM; si 
se agrega otro del mismo tipo, se denominara 
Label2 y asi sucesivamente. 

La propiedad Name o nombre, identifica un 
control. Cuando un formulario tiene muchos 
controles del mismo tipo, se puede utilizar la 
propiedad nombre del control para identificarlo. 




A 



A continuation, se coloca una lista con algunas de las propiedades mas 
comunes de los formularios. 

• Backcolor: define el color de fondo del objeto. 

• Name: es el nombre del objeto. 

• Caption: es el titulo del objeto. 

• Enabled: si se coloca "False", el objeto no respondera a ningun 
evento. Si el valor de la propiedad es "True", respondera a sus eventos 
asociados. 

• Visible: permite mostrar u ocultar un objeto (True/False). 

• Font: es el formato de fuente del texto que posee el objeto. 




^Como habilitas la ventana 
de propiedades utilizando el 
teclado? 



Responde: 
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[Ejercicio de aplicacion3 



Haz die en cada uno de los controles que adicionaste al formulario del 
ejercicio anterior y modifica sus propiedades de acuerdo con lo que se 
indica en la siguiente tabla: 



Control 


Propiedad 


Valor 


UserForml 


Caption 


Saludo 


UserForml 


Name 


frmSaludo 


Label 1 


Name 


IblNombre 


Label 1 


Caption 


Ingresa tu nombre 


Label 1 


Font 


Tahoma Bold 8 


Text Box 1 


Name 


txtN ombre 


CommandButton 
1 


Name 


btnAceptar 


CommandButton 
1 


Caption 


Aceptar 



Tu formulario debe quedar asi: 



Saludo 



Ingresa tu 
nombre 



Aceptar 



1.10.7 Area de programacion 

Lista de objetos 



Es el lugar donde se 
escribira el codigo 
que se utilizara para 
responder a cada 
evento. 



Lista de eventos 



■- 


1 

Saludo.xlsji - frmSaludo (Codigo) 






Emm] 


UserForm w ▼ Click 


T 






Private Sub btnAceptar Click () 
MsgBox "Hola " £ txtnombue 
End Sub 


Text 


1 














kiJJ 







• Lista de objetos: es la lista de objetos del formulario (CommandButton, 
TextBox, CheckBox, etcetera). 



• Lista de eventos: es la lista de eventos del objeto activo (Click, Dblclick, 
KeyPress, Change, MouseDown, etcetera). 
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Ejerdciode aplicacion 4 



1) Ingresa el siguiente codigo en la ventana de programacion del formulario 
que utilizaste en el ejercicio anterior: 

Private Sub btnAceptar_Click() 

MsgBox "Hola " & txtn ombre. Text 
End Sub 

2) Ejecuta y prueba este programa. 



1.11 Primer programa utilizando Excel y VBA 

Ahora veras como hacer un primer programa en VBA utilizando los datos de la hoja 
de calculo Excel. 

Este programa utilizara la hoja de calculo puntuaciones.xlsx, que habias utilizado 
en la parte inicial de este capitulo. 

Para ello, se te pide hacer lo siguiente: 

1 ) Ingresa al editor de VBA. 

2) En el explorador de proyectos, haz die derecho en la Hojal e inserta un 
modulo. 



Microsoft Visual Basic para ApDicaciones - trabajo excel .xlsx - [Hojal ^Codigo); 



■ Archivo Edicion Ver In&ertar Formato Depuracion Ejecutar Herramientas 

■MM - a a - j \& as -7 c- ► dd b % s ^ e 



Proyecto - VBAProject 



Hoja 1 CHoia V* 



|(Gei 



ri e ral ) 



-ft HojaZ {)- jif] Ver codigo 
-flP] Hoja3 (h =_ 
-g ThisWor ^ 



E3-^3 Forrnularios 

HH UserFor 

r±]-^g Modules 

1 Modulo! 
[±]-^g Modules de 
1 Clasel 

- ' 
Propiedades - Hojal 



£ro p i ed a d es. d e VB AP roj ect. . 



Insertar 



Irn p o rta r arc h ivo . . . 
Exportar archive... 
Quitar Hojal... 
, , Imprimir... 



LJs.erForrn 
Modulo 



Mod ulc de clase 



Aco_ple 
Hojal Worksheet 

I ■ 0.cultar 

Alfabetica p or catego, , 



Hoja 1 

iDisplayPageBreak True 
pisplayRightToLef False 
EnableAutoFilter False 
EnableCalculation True 
EnableForrnatCon True 
EnableOutlining False 
EnablePivotTable False 
EnableSelection 0 - xlNoRestrictii 

Wane Hojal 

ScrollArea 

StandardWidt h 10.71 

Visible |-T-xlSheetVisib 
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3) Ingresa el siguiente codigo en el modulo que has creado. 



^General) 




| ▼! | Mostrar 






Sub 


Most rar () 












norrtbre = Range ( "B5 " ) 












nota = Round (Range ( "G5 ") , 1) 












MsgBoK "Primer Puesto: " & nombre 


& " nota=" & nota, vbDef aultButtonl, 


"Resultado " 






End 


Sub 






i 






1 









4) Inserta un nuevo boton en la hoja de calculo y colocale como texto la palabra 
"Mostrar". 

5) Asocia a este boton el subprograma Mostrar, cuyo codigo ingresaste en el 
punto 3. 

6) Haz die en el boton Calcular para ejecutar la macro Calcula_Ganador. 

7) Haz die en el boton Mostrar. 
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Comenta el resultado obtenido: 



Ahora analiza el codigo que has ingresado y contesta las siguientes 
preguntas: 

• Con la instruccion: nombre=Range("B5"), ^que accion se esta 
realizando? 



• ^Para que sirve la instruccion MsgBox? 



[Ejerc|ciode apMcacion 5 1^ ™| 

1) Crea un programa en VBA que permita convertir minutos a horas taT comol 
se muestra en la siguiente figura: 



Co nve rti dor |^ 




minutos: \ 210 






Convertir 


en horas: \ 3.5 





Nota: Para convertir a numero un dato ingresado como texto, se debe 
aplicar la funcion Val, asi por ejemplo: Val(TextBox1 .txt) 

2) Ejecuta y prueba este programa. 



29 




PONTIFICIA 

UN I YE RSI DAD 
CATOLICA 

DEL PERU 



Manejo de hojas de Calculo con Excel 2010 - Nivel Avanzado 



1.12 Guardando un archivo con macros 



Al intentar guardar un archivo que posee macros, aparecera el siguiente mensaje: 



Microsoft Office E xcel 



Las siguientes caracteristicas no se pueden guardar en libros sin macros: 
# Proyecto de VB 

Para guardar un archivo con estas caracteristicas, haga die en No y, a continuacion, elija un tipo de archivo habilitado para macros en la lista Tipo de 
archivo. 

Para seguir guardando el archivo como libro sin macros, haga die en Sf. 



Ayuda 



Por tanto, debes seleccionar la opcion No, luego de lo cual aparecera la siguiente 
ventana: 



Guardar como 



Guardar en: 



t My Recent 
"^Documents 

[j^ Desktop 

t . 1 1 My Documents 

►y My Computer 

^ jMy Network 
J Places 



fr^ Capitulo 1 



a - a i x cat a - 



HSaludo 




Ingresa el narnbre del archivo 
Ml yselecciona el tipo "Libra de 
Excel habilitado para macros' 



Nombre de archivo: | pU ntuaciones.xlsm 
Guardar como tipo 



Libro de Excel habilitado para macros (*.xlsnn) 




Hazlo tu mismo: 

Sigue los pasos anteriores y guarda el archivo puntuaciones.xlsx como libro de 
Excel habilitado para macros. 
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^CUANTO APRENDI?! 




Marca V (verdadero) o F (falso), segun corresponda: 

1 . El lenguaje de programacion que se utiliza para macros en Excel se 
llama Visual Basic. ( ) 

2. La herramienta Depurar paso a paso sirve para ejecutar la macro 
instruccion por instruccion en el editor de VBA. ( ) 

3. Un evento puede ser generado por la pulsacion de una tecla. ( ) 

4. Las macros se guardan con un tipo de archivo diferente al de una hoja de 
calculo. ( ) 

5. No es posible detener una macro mientras se esta ejecutando ( ) 



II. Abre una hoja de Excel y graba una macro de nombre Texto que realice lo 
siguiente: 



1 . Inserta en la celda A1 un texto. 

2. Coloca este texto subrayado, negrita, cursiva y un tamano de letra 24. 

3. Aplica un fondo de color azul a la celda en la cual esta el texto. 

4. Anade el color del texto en rojo. 

5. Anade un borde superior y un borde inferior a la celda. 

6. Ajusta automaticamente la columna en la cual se ha insertado el 
texto. 

Prueba la macro para comprobar que funciona. 

Crea un boton en la barra de herramientas que al pulsarlo ejecute la macro 
anterior. 

Prueba el boton que acabas de crear para comprobar que llama a la macro. 
III. Relaciona los siguientes controles con su nombre correspondiente: 



Icono 


Nombre 


A 


Boton de comando 


abl 


Cuadro de lista 




Imagen 




Etiqueta 


m 


Cuadro de texto 
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IV. Crea un programa en VBA que permita convertir grados Fahrenheit a 
Centigrados utilizando la siguiente formula: C=(F-32)*5/9. 



Co nve rti dor de t 



emperaturas 



Ingrese ntimero de . 

grados Fahrenheit: | 131 



Equi'vafencia en 
Cent/graddf; 



55 



Convertir 



V. Completa las siguientes expresiones: 



1. Un 



esta compuesto por controles. 



2. Para cambiar el titulo de un formulario se debe utilizar la propiedad 



3. Un objeto es 

4. Excel graba las macros de forma predeterminada con un tipo de 
referencia . 

5. Si deseas que una macro siempre este disponible, debes guardarla 
en . 

VI. Crea un programa en VBA que calcule el area de un cilindro, leyendo los 
datos de la hoja de calculo tal como se muestra en la siguiente figura: 





A 


B 


C 


1 








2 


Datos 




3 


radio 


3 


• 


4 


altura 


& 




5 








6 
7 


El area del cilindro es: 226.03 


S 










OK 


i 


10 





J 



I J 
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Troyecto 




La calculadora con guincha 



Descripcion 



Como parte del proyecto de este curso, desarrollaras 
una calculadora con guincha. Este tipo de 
calculadoras son frecuentemente utilizadas en las 
ventanillas bancarias, las cuales, aparte de permitir 
realizar operaciones matematicas, pueden guardar 
dichas operaciones para que sean revisadas en 
cualquier momento por el cajero, sirviendole como 
ayuda para realizar el cuadre de su caja. 

Para este proyecto, tu calculadora debe tener las 
siguientes funcionalidades como minimo: 
1 



Trabajar con las operaciones: adicion, sustraccion, 
multiplication, division, porcentaje. 

2. Debe permitir hacer dichas operaciones utilizando el 
mouse o el teclado. 

3. Debe permitir guardar las operaciones que se van 
realizando. 

4. Debe permitir limpiar tanto la pantalla de ingreso de numeros como de las 
operaciones guardadas. 

5. Debe permitir exportar las operaciones a una hoja de Excel. 



j Calculadora Inteligente Q ® 



Options Settings ? 



29/09/2003 



Time Calculation 
01:39:54 + 
02:45:31 = 

04:25:25 T 



Currency Calculation 
12,634.54 + 
42.10 + 
32,560.06 = — 



003 



45,244.70 T 



|003 P 



45,244.70 



Zl iZHZIlZI iZI Zl 

§Q0QQ@ 

EQQQQ0 



3. SANSQFTVv'ARE 



Cualquier funcionalidad adicional que puedas colocar a tu calculadora te permitira 
obtener una mayor calificacion en el proyecto. 



Primera etapa 

Para esta primera, debes hacer lo siguiente: 

1 . Crea tu archivo del proyecto. 

2. Disena el formulario colocando en el los controles que utilizaras para 
desarrollar la calculadora. 
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Anotaciones 
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CAPITULO 2 



FUNDAMENTOS DE PROGRAMACION 



En este capitulo, conoceras nociones y conceptos 
basicos de programacion en VBA, los cuales te 
permitiran desarrollar programas interesantes y de 
gran utilidad. 





Tornado de: <http://commons.wikimedia.Org/wiki/File:Centro-comercial.ipg > 

Jose esta de vacaciones en USA y ha realizado compras en diversos 
centros comerciales con su tarjeta de credito Visa, por un monto de 2000 
dolares. Sabiendo que su tasa de interes es del 1,3% y que el realizara el 
pago del total en 12 cuotas, necesita calcular su cuota mensual asi como el 
total de intereses. ^Es posible que lo haga utilizando Excel? 




Ti 



Por supuesto, podemos obtener estos datos haciendo uso 
de las macros y del lenguaje de programacion en VBA. 
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Con esta calculadora de datos, que elaboraras a lo largo de este capitulo, podras 
resolver el problema de Jose y saber cual es el monto a pagar en cada cuota, el 
total de intereses y el valor total pagado. 




_z 

Monto de 
3 venta: 



Tasa de 
5 inleres: 



2000 soles 



1.3% 




gar: 



S/. 181.08 soles 



imero 

7 de cuotas: 

s 



10 



12 



Calcular 



■ 

pagado: S/. 2,173.00 soles 



Total 

intereses: S/. 173.00 soles 



Lirnpiar 



Calculadora de cuotas 



Monto de 
venta 

Tasa de 
interes 



2000 



1.3% 



Numero de I ~ 
runtas 



Calcular 



Cuota a 
pagar 

Valor total 
pagado 



Total 
intereses 



Limpiar 



131.03 



2,173.00 



173. 00| 



Antes de empezar con el contenido de este capitulo, te invitamos a que leas el 
siguiente articulo que te dara algunos alcances sobre lo que es un lenguaje de 
programacion y reconoceras la importancia que tiene este para poder realizar el 
trabajo que te acabamos de presentar. 
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Lee atentamente: 

computador V *« p 8 r4mao 6n que 

hacen povWe « d wrnvnos V 
miC roproces*Jor. uttoando 

proWemaquesedebere«> h 
cmpleo de herram*ntas que _ 

mformattca. revolver el proMema 

JeUodn de. P'^-^L 0 Xe a. prog-ma U c^^SSJ J pro*-.* Que usu.r** 
como compel una maqu-na v,rtu... cap.' <* 

ordenadof es en reahdad tan sow aH . orrtmo (program.). 

!e,mo> capaces de expre**' n*d-nte un .«o ^ $u 

(COBOL. PL/1. e«. ). o muv relaoonado conl *vaba. junto con U 

mvodudan en U m*quma e 

automit<am«ote. uaves de tos cuales poderoos 

teneuaie esta def-ndo po 

conjunto de simbotos uMaados. 



Tornado de: "Todo sobre programacion". Taringa. Fecha de consulta: 28/10/2011 
<http://www.taringa.net/posts/info/1 205642 1/Historia-de-la-programacion-_resumen-algunos-lenguajes_ .html> 




Tu trabajo en este capitulo consistira en elaborar dos programas 
para el calculo de cuotas por compras al credito en una tienda 
comercial, uno de ellos sera utilizando una hoja de calculo y el 
otro directamente en un formulario de VBA. 
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Para empezar con el desarrollo del capitulo, abre una hoja de Excel 2010 y crea la 
siguiente hoja de calculo. Guardala con el nombre cuotas.xlsx. 





A B 


c 


D 


E 


F 


G 


1 


Calculadora de cuotas 


1 

£. 














3 


Monto de 
venta: 


soles 




Cuota a 
pagar: 




soles 


4 














5 


Tasa de 
interes: 


% 





Valor total 
pagado: 




soles 


6 














7 


Numero 
de cuotas: 






Total 
lotereses: 




soles 



Esta sera la hoja de calculo que utilizaras para tu trabajo, en la cual se debe calcular 
la cuota a pagar, el valor total pagado y el total de intereses, utilizando el monto de 
venta, la tasa de interes y el numero de cuotas. 



2.1 Conceptos iniciales de algoritmos 



Cotidianamente las personas nos enfrentamos a problemas que resolvemos 
realizando una serie de pasos, procedimientos o acciones que nos permiten resolver 
dicho problema. 



Por ejemplo: 

Un alumno tiene que elaborar un trabajo escolar en Excel, para ello debe planificar 
la secuencia de pasos que debe seguir para lograrlo, ^podnas ayudarlo 
completando los pasos que se muestran a continuation? 

1) Encender la computadora 

2) 

3) 

4) Ingresar los datos del trabajo en la hoja de calculo 

5) 

6) 



7) Imprimir el trabajo 
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^Por que crees que es importante que el alumno haya definido esta secuencia 
de pasos? 



2.1 .1 Concepto de algoritmo 

Un algoritmo es un conjunto de pasos definidos y organizados que describe el 
proceso que se debe seguir, para dar solucion a un problema determinado. 

El algoritmo debe ser legible, correcto, modular, eficiente, 
ordenado, conciso y, de ser posible, que se desarrolle en el 
minimo de tiempo. 

2.1.2 Analizando el problema 

Es recomendable hacer un breve analisis del problema antes de aplicar algun 
algoritmo para poder resolverlo. Una forma simple de hacer esto es con una 
breve descripcion utilizando el lenguaje natural. 

Por ejemplo: 

Calcular del area de un triangulo rectangulo en funcion de la base y altura. 

1 . Descripcion del problema: se desea calcular el area de un triangulo. 

2. Datos que se necesitan para el calculo (datos de entrada): base, altura 

3. Respuesta a obtener (datos de salida): area 

4. Formulas a aplicar: para calcular el area de un triangulo se aplica la 
siguiente formula: 

Area = base x altura 

Altura. 

Ba.se 

Hazlo tu mismo 

Abre la hoja de calculo cuotas.xlsx y completa el analisis del problema. 
1) Escribe una breve descripcion del problema: 
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2) ^Cuales son los datos de entrada? 



3) ^Cuales son los datos de salida? 



4) Las formulas que debes usar seran las siguientes: 

Sean: m: monto, i: porcentaje de interes, n: numero de cuotas 

o Cuota a pagar=m x (i(1 +i) n )/((1 +i) n -1 ) 
o Valor total pagado=n x cuota a pagar 
o Total intereses=valor total pagado-m 



Luego de analizar el problema, debes disenar la 
solucion, para ello se pueden utilizar tecnicas o metodos 
estandar como por ejemplo el uso de diagramas de flujo 
V pseudocodigo. 



2.1 .3 Diagramas de flujo 

El diagrama de flujo o diagrama secuencial se utiliza para visualizar la 
secuencia detallada que comprende una tarea. Ademas, sigue una secuencia 
logica de las actividades programadas. 

Por ejemplo: diagrama de flujo para calcular el area de un triangulo 



Base=Q. Altma.=0 



Ba.se : Altura 



Area. = (Ba.se* Altirra.)/2 






F 




Area. 




-3 


I 
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Simbolos utilizados en los diagramas de flujo 

Representation del simbolo Description 




Este simbolo marca el inicio y fin de un 
diagrama de flujo. 



Se utiliza para definir los datos de 
entrada. 



Representa un proceso. 





Representa una decision (si algo se 
cumple, seguir la S; si no fuera el caso, 
seguir la N). 

Simbolo utilizado para representar una 

decision multiple. En su interior se 
almacena una expresion condicional y, 
dependiendo del valor de dicha 
expresion, se sigue por uno de los 
caminos alternatives. 

Este grafico representa la impresion de 
un resultado. 



Las flechas indican la direction del 
flujo del diagrama. 



2.1 .4 Pseudocodigo 

Permite describir un algoritmo en un lenguaje simplificado sin depender de uno 
de programacion. Es un lenguaje intermedio entre el humano y el de 
programacion. 



Por ejemplo: pseudocodigo para 
calcular el area de un triangulo 



Inicio 

Inicializa base, aLtura 
Leer base, aLtura 
area=(base*aLtura)/ 2 
Impnmir"ELarea es : area 

Fin 
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r. 



Cualquier metodo de diseno o 
representacion de un algoritmo te permitira, 
mas adelante, escribir un programa de 
computadora en cualquier lenguaje de 
programacion. 




X 



r 



Ejercicio de aplicacion 1 




1 . Realiza los diagramas de flujo para resolver los siguientes problemas: 

a) Sumar los "n" primeros numeros naturales 

b) Calcular el promedio de 4 numeros naturales 

c) Calcular las raices de una ecuacion de segundo grado 

2. Realiza la representacion en pseudocodigo de los problemas indicados en la 
pregunta anterior. 



Hazlo tu mismo 

Siguiendo con el desarrollo de tu trabajo y en base a la informacion de la hoja 
de calculo cuotas.xlsx, elabora el diagrama de flujo y pseudocodigo para el 
calculo de cuotas de una venta al credito. 
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Hasta este momento has elaborado el 
algoritmo y el diseno correspondiente al 
programa que vas a desarrollar, ahora 
iras construyendo tu programa. 




2.2 El programa y sus partes 

Un programa es un conjunto de instrucciones que se envian a una computadora 
para que realice una o varias acciones. 

Se compone basicamente de las siguientes partes: 



G£ Programa. xls - UserForm3 (Cddigo) 






CommandButtonl ▼ 


[Click 



1. Cabecera del 
programa 



2. Declaration 
de constantes 



Private sutj C'ojnmanci&-Jttonl_ciicJc( ) 

1 Autar : Fernando Santas 

■ Version : 1,0 

t ■ Fee ha creaeion: 01/12/2006 

1 Fecha reodif lcacion: 02/12/2006 

' Objetivo! calcular area y voluraen de 
' un eilindro 

Const pi = 3.141592 

Dim radio, altura, volumen, area Aa Dottle 

radio ■ Val (TextSoxl . Texc) 

alttara ■ Val ( Texts ox2* Text) 

voider. = pi * (radio n 2) * altera 

TextSoxS .Text = vo lumen 

area = 2 - pi * (radio * altuxa} 

TexrrBox4 .Tex' = area 

End Sub 



3. Declaracion 
de variables 

4. Cuerpo del 
programa 



2.2.1 Cabecera del programa 



Define el objetivo del programa comentandolo, es decir, se utiliza para 
documentar el programa, lo que las personas suelen dejar en segundo piano. 
Dentro del comentario, se incluye lo siguiente: 

• Autor 

• Version actual 

• Fecha del periodo de inicio o creacion o de la ultima modification del 
programa 

• El objetivo del programa 

• Otros detalles que ayuden a documentar el programa 
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Como habras observado, para colocar un 
comentario en cualquier parte de tu programa, 
solo debes anteponer el caracter apostrofe (') 
antes del comentario y presionar Enter para 
terminarlo, asi por ejemplo: 

T Este es un comentario 




Declaracion de constantes 

Como su nombre lo dice, una constante es un valor que nunca cambia. Para 
declarar una constante se utiliza la variable Const, siguiendo la sintaxis 
detallada a continuation: 

Const nombre_constante [As tipo_dato] = valor 



Ejemplo: Const Pi = 3.1415 

Recuerda que la constante debe tener un valor asignado. 

Declaracion de variables 

Todo programa consta de variables que facilitan la comprension y orden del 
programa. Para poder declarar una variable, debes seguir la siguiente sintaxis: 



Dim variablel As tipo_dato1, variable2 As tipo_dato2 i ... , variableN As tipo_datoN 



Aqui algunos ejemplos de declaracion de variables: 

Dim edad as Integer 
Dim nombre as String 
Dim resultado as Boolean 



Integer, String y Boolean son tipos de 
datos manejados por VBA. Mas 
adelante, profundizaras tus 

conocimientos acerca del manejo de 
variables y tipos de datos. 
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Hazlo tu mismo 

En base a lo mencionado anteriormente, ^podnas explicar la diferencia entre una 
constante y una variable dentro de un programa? 



Cuerpo del programa 

Se le conoce como bloque del programa y puede ser simple o complejo 
dependiendo de la aplicacion que estas desarrollando. 

2.3 Tipos de datos 

Al desarrollar un programa, muchas veces se manejan datos de diferentes tipos, 
tales como numeros, letras, fechas, u otros, los cuales dependen del valor que ellos 
representan. 

Por ejemplo: 

• Nombre de una persona • ^Estas afiliado al seguro? 

• Tipo de cambio del dolar • Porcentaje de IGV 

Escribe 2 ejemplos mas: 



VBA maneja los datos agrupandolos de acuerdo a los siguientes tipos: 
2.3.1 Datos numericos 

Estan conformados por los caracteres numericos del 0 al 9 y los caracteres 
especiales: +, -, ( ), /, e (formato cientifico). 

Los principales tipos de datos numericos son: 

• Byte: generalmente es utilizado para representar numeros naturales. Ocupa 
1 byte desde 0 hasta 255. 
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Integer: generalmente es utilizado para representar numeros enteros. 

Ocupa 2 bytes y puede tomar un valor desde -32768 hasta 32767. 

Long: generalmente es utilizado para representar numeros enteros largos. 

Ocupa 4 bytes y puede tomar un valor desde -2,147,483,648 hasta 
2,147,483,647. 

Single: generalmente es utilizado para representar numeros reales. Ocupa 
4 bytes y puede tomar un valor desde -3,4028235E+38 hasta -1,401298E-45, 
para numeros negativos, y desde 1,401298E-45 hasta 3,4028235E+38, para 
numeros positivos. 



|Ejercicio de aplicacion 2 



Coloca los siguientes datos numericos en la columna correspondiente de la 
tabla de acuerdo al tipo al que pertenece: 



45 -254 254 
123.21 256 34.23 



0 8 
73246 -63.75 



Byte 


Integer 


Long 


Single 











-87 



2.6 



65 



-1 



39482 
3 



2.3.2 Datos alfanumericos 



Un dato alfanumerico es aquel que esta formado por letras o por letras y 
numeros a la vez. 

Existen dos tipos de datos alfanumericos: 

• Caracter simple (por ejemplo: "a") 

• Cadena de caracteres (por ejemplo: "marco", "A001") 

En el caso de VBA resulta igual si se cuenta con un solo caracter (caracter 
simple) o de una cadena de caracteres. El espacio que ocupe esta dependera 
del numero de caracteres con que cuente. 

Para VBA, el tipo de dato alfanumerico es el String. 
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2.3.3 Datos fecha/hora 

La fecha se almacena como numeros de serie y la hora como fracciones de 
decimales. Esta es la razon por la cual una fecha y hora pueden ser utilizadas 
para realizar operaciones de calculo. 

Sin embargo, estos datos pueden ser presentados de acuerdo con el formato 
que sean requeridos: 

Fecha : DD/MM/AA o DD-MM-AA 
Hora HH:MM:SS AM/PM o HH:MM 

Escribe dos ejemplos de datos fecha/hora con los formatos mostrados 
anteriormente: 



( \ 
dCual es el nombre del tipo de dato 

que usa VBA para representar los 

datos fecha/hora? 

^\ J 



Responde: 



2.3.4 Datos logicos 

Permite usar variables que tienen dos posibles valores: verdadero o falso. Por 
ejemplo: 

• 6 A P r °bo el examen? ^Es mayor de edad? 

Para VBA, el tipo de dato logico es el Boolean. 



Recuerda: 



Dato 


Tipo 


Numerico 


Byte, Integer, Long, Single 


Alfanumerico 


String 




Date 




Boolean 
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Averigua... 
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Variables en VBA 

Cuando un programa solicita el ingreso de un dato, este sera almacenado en un 
espacio de memoria de la computadora. A este espacio de memoria se le llama 
variable. 

2.3.5 Declarando variables 

Para poder utilizar variables dentro de un programa, estas deben ser 
declaradas al inicio del mismo con su respectivo nombre, tipo y siguiendo la 
sintaxis que viste anteriormente. 



Dim variable 1 As tipo_datoi, variable2 As tipo_dato2, 



, variable N As tipo_datoN 



Reglas para nombrar una variable: 

• Se pueden usar letras, numeros y algunos caracteres 
puntuacion, pero el primer caracter debe ser siempre alfabetico. 

• VBA no distingue entre mayusculas o minusculas, se recomienda 
seguir un estandar para hacerlo legible. 

• No se pueden usar espacios ni puntos. 

• No se pueden usar algunos caracteres especiales como # $% ! 

• Los nombres pueden contener hasta 254 caracteres de longitud. 

• Existen palabras reservadas que no se pueden usar para nombres 
de variables o procedimientos. 




Hazlo tu mismo 

Escribe como declararias las siguientes variables en un programa: 



Dato 


Declaracion de variable 


monto de venta 




edad 




apellidos 




^alcanzo vacante? 





Averigua... fQ^j 




Si no declaras el tipo de dato a 
una variable, <Lque tipo de dato le 
asignara VBA? 



Responde: 
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2.3.6 Asignando datos a las variables 



Para asignarle un valor a una variable se usa el operador "=". Por ejemplo: 

nombre-'marco" 

edad=15 



|Ejercicio de aplicacion 3 ^J^a 



■I 



Abre el archivo cuotas.xlsx, ingresa al editor de VBA y crea un modulo para 

la hoja de calculo que estas utilizando. 

Luego, crea el programa Calcular de la siguiente manera: 



Sub Calcular() 
End Sub 



Finalmente, coloca dentro del programa lo siguiente: 

1) La cabecera. 

2) La declaration de variables y constantes que utilizaras. 

3) Asigna a cada variable los datos leidos de las celdas de la hoja de 
calculo. 



Recuerda que, para leer un dato de una celda, se debe usar la funcion 
Range. 

Por ejemplo: monto=Range("B3") 



2.4 Tipos de operaciones en VBA 

Muchas veces al elaborar un programa necesitaras realizar operaciones con los 
datos que posee. 

Con VBA se pueden realizar los siguientes tipos de operaciones, las cuales 
dependen de los tipos de datos que tengan. 



Operacion 


Tipo de dato 


Aritmetica 


Byte, Integer, Long, Single 


Logica 


Boolean 


Concatenation 


String 
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2.4.1 Operaciones aritmeticas 

Se utilizan para realizar operaciones aritmeticas basicas como sumar, restar, 
multiplicar, dividir. Entre los operadores aritmeticos tenemos: 



Operador 


Ejemplo 


Tipo de operacion 


Resultado 


+ 


5+2 


Suma 


7 




5-2 


Resta 


3 




-5 


Negacion (numero negativo) 


-5 


* 


5*2 


Multiplication 


10 


/ 


5/2 


Division 


2.5 


A 


5 A 2 


Exponente ("elevado a la") 


25 


Mod 


18 mod 7 


Obtiene el residuo de una 
division 


4 



Reg las para resolver operaciones aritmeticas en VBA: 

• Las operaciones son evaluadas de izquierda a derecha. 

• El orden de precedencia de los operadores es el 
siguiente: 

1- 0 

2. A 

3. *, / 

4. \ 

5. Mod 

6. +,- 




■i 



2.4.2 Operaciones logicas 



Se utilizan para establecer condiciones entre expresiones. Entre los 
operadores logicos, tenemos: 



Operador 


Ejemplo 


Tipo de 
operacion 


Resultado 


And 


(5<2) and 
(3>8) 


Y (conjuncion) 


Falso 


Or 


(6>=4) or (2<1) 


0 (disyuncion) 


Verdadero 


Not 


Not(2>1) 


NO (negacion) 


Verdadero 
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2.4.3 Operaciones de concatenacion 



Se utilizan para unir textos. 



Operador 



Ejemplo 



Tipo de operacion 



Resultado 



&o + 



milagros " & "perez' 



concatenacion 



milagros 
perez 



r 



ercicio de aplicacion 4 




Evalua las siguientes operaciones y escribe el resultado correspondiente: 

1) 18 mod 5 + 4*3 = 

2) not(14/2-8>3+5*2)= 

3) (6*3/2) A 2= 

4) (7*(10-5)mod3)*4+9= 



2.5 Desarrollando el programa 

Ahora empieza a construir el cuerpo del programa. Para ello, debes ingresar las 
expresiones o formulas que te permitan calcular los valores necesarios y mostrarlos 
en las celdas correspondientes. 

Hazlo tu mismo 

Realiza las siguientes acciones en tu archivo cuotas.xlsx. 

1) Ingresa al editor de VBA y elabora el cuerpo del programa Calcular, 
utilizando las formulas que viste en la etapa de analisis: 

Sean: 

mimonto, iiporcentaje de interes, nmumero de cuotas 
Cuota a pagar=m x (i(1 +i) n )/((1 +i) n -1 ) 
Valor total pagado=n x cuota a pagar 
Total intereses=valor total pagado-m 

2) Ingresa tambien el codigo que te permita colocar los resultados obtenidos en 
las celdas correspondientes. 
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Recuerda que, para asignar un 
valor a una celda, debes hacer lo 
siguiente: 

Ranaef"eelda"^=valor 




Coloca el codigo completo de tu programa aqui: 



A 



3) En la hoja de calculo, crea un boton y asignalo a tu programa Calcular. 

4) Crea un programa adicional que te permita limpiar los valores de las celdas. 

Tu trabajo debe quedar asi: 





A 


B 


C 


D 


E 




F 


G 




1 


Calculadora de cuotas 




2 


















3 


Monto de 


2000 


soles 




Cuofa a 


S/ 181.08 


soles 




4 


















5 


Tasa de 


13% 






Valor total 


S/. 2,173.00 


soles 




6 


















, 




12 






Total 
rntereses: 


Si 173.00 


soles 


8 


















9 




Calcular 




Limpiar 










10 
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2.6 Trabajando con formularios 



Ahora vas a desarrollar un programa similar al del caso anterior, pero a traves del 
uso de formularios. ^— — N 
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UserForml 


Ingrese un Numero (N) 




li 


Caloiar 


La suma de los N pnmeros 




numeros naturales es: 

1 





Un formulario facilita la 
comunicacion directa entre 
el usuario y el programa. 



x 



Los lenguajes de programacion ofrecen una extensiva variedad de controles que se 
pueden ir agregando de tal manera que el formulario utilizado sea lo mas sencillo 
posible. 

Antes de elaborar tu programa con formularios, debes conocer el uso de los 
principales elementos de la caja de controles que puedes usar en un formulario. 



2.6.1 Etiquetas 

Se utilizan para visualizar el texto que no se puede editar. De este modo, el 
usuario puede reconocer otros controles. 

2.6.2 Cajas de texto WWWIP 

Permite que el usuario ingrese una 
informacion a la aplicacion y que esta 
sea visualizada por el. 



2.6.3 Botones de comando 



Ingrese un Numero (N) 

n 



La suma de los N primeros 
numeros naturales es: 



Etiqueta 



Cuadro de Texto 



Permiten ejecutar una orden. Los botones de comandos mas utilizados son los 
siguientes: 



Nuevo 


Grabar 


Modificar 


Eliminar 



Hazlo tu mismo 

Ahora si comenzaras a elaborar tu programa de Calculo de cuotas, utilizando un 
formulario, para ello abre una hoja de Excel y realiza las siguientes acciones: 

1 ) Ingresa al editor de VBA. 

2) Inserta el siguiente formulario. 
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3) Haz doble die en el boton Calcular e ingresa el codigo que utilizaste para el 
programa del calculo de cuotas que realizaste anteriormente. 



4) Modifica el codigo del programa teniendo en cuenta que tanto los datos de 
entrada como los datos de salida ya no se realizaran desde las celdas de 
Excel, sino desde las cajas de texto del formulario. 

5) Agrega el codigo necesario al evento OnClick del boton Limpiar para que te 
permita borrar el contenido de 
las cajas de texto. 



Al ejecutar tu programa, debe 
quedar asi: 



CalcuLadora de cuotas 



Monto de 
venta 



Tasa de 
interes 



Numero de ~ 
cuotas 



Cuota a 
pagar 

Valor total 
pagado 



Total 
intereses 



131.03 



2,173.00 



173. 00| 



Calcular 



Limpiar 



|Ejercicio de aplicacion 5 M 

Crea los siguientes programas utilizando formularios en VBA: 

1) Un programa que te permita convertir la velocidad de kilometros por hora 
a metros por segundo. 

2) Un programa que solicite los coeficientes (a, b, c) de una ecuacion de 
segundo grado (ax 2 +bx+c) y permita mostrar las raices. 
Recuerda que, para calcular las raices de una ecuacion de segundo 
grado, se debe usar la siguiente formula: (-b±(b 2 -4ac) 1/2 )/2a 
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I. Relaciona el tipo de dato que utilizarias para usar las siguientes variables: 

Variable Tipo de dato 

Domicilio Long 

ano_nacimiento String 

Habitantes Single 

nro_pisos Integer 

area_circulo Byte 

II. Contesta las siguientes preguntas: 

a) ^Cuales son las etapas que debes seguir para desarrollar un programa? Explica. 



b) En VBA, ^que sucede si no se declara una variable antes de utilizarla? 



c) 6Que valor tiene la variable P despues de realizar las siguientes operaciones?: 

P=5 
X=2+P 
P=3 
P=P+X 

Resultado P= 

d) ^Que valor tienen las variables X y W despues de ejecutar las siguientes operaciones 
de asignacion? 

X=4 

W=6 

Y=X+W 

X=W+Y 

W=X+W 

Resultado X= 
Resultado W= 



e) ^En que casos es conveniente utilizar constantes en un programa? 
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III. Coloca V (verdadero) o F (falso) en las siguientes expresiones: 

1) Al declarar una constante es obligatorio colocar el tipo de dato. ( ) 

2) En VBA, si se tiene una variable Nombre y otra NOMBRE son iguales. ( ) 

3) Para concatenar cadenas se debe utilizar el operador "+". ( ) 

4) El operador Mid permite obtener el residuo de una division. ^ ^ 

5) Si en un programa se desea utilizar una variable para almacenar el sexo de una 
persona (M o F), se debena utilizar el tipo de dato String. ( ) 

IV. Con una X, marca las alternativas en donde se hace una correcta declaration de 
variables y constantes y tipos de datos: 

a) Dim edad as integer, cantidad as integer 

b) Dim monto as string 

c) Const interes as single 

d) Const tipo_cambio=2.89 



V. Calcula el resultado de las siguientes operaciones: 



Expresion 


Resultado 


65\7 




65 mod 7 




(13+3)+8*3 mod 5 +4*7 




12 A 2/3 mod 9-1 





VI. Crea el diseno de los siguientes problemas utilizando diagrama de flujo o pseudocodigo: 

a) Leer 3 numeros y mostrarlos en orden creciente. 

b) Calcular el precio total de un articulo conociendo su precio de venta sin IGV y 
sabiendo que el IGV es del 18%. 

c) Calcular la hipotenusa de un triangulo rectangulo teniendo como datos los catetos. 

VII. Crea un programa para resolver el problema de la pregunta VI. b leyendo los datos y 
mostrando los resultados en la hoja de Excel. 

VIII. Crea un programa para resolver el problema de la pregunta VI. c leyendo los datos y 
mostrando los resultados en un formulario. 



L. 



.J 
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Troyecto 




Segunda etapa 

Ahora aplicaras las herramientas de analisis y diseno de programas que has 
aprendido en este capitulo, para poder elaborar la calculadora con guincha; para 
ello, debes realizar lo siguiente: 

1 . Abre el archivo de tu proyecto. 

2. Coloca un nombre a cada uno de los controles que has colocado en tu formulario 
para que los puedas reconocer en la etapa de programacion. 

3. Aplica las propiedades que creas convenientes a cada uno de los controles para 
que se vean presentables, por ejemplo, fondo, color de letra, borde, etcetera. 

4. Elabora un analisis simple de como desarrollarias tu programa. 

Hasta este momento ya tienes tu formulario disenado y el analisis correspondiente 
al problema, en el siguiente capitulo aprenderas algunas herramientas adicionales 
que te permitiran empezar con la etapa de programacion de tu calculadora con 
guincha. 
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Anotaciones 
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CAPITULO 3 



PROGRAMACION MODULAR 



En este capitulo, aprenderas a desarrollar 
aplicaciones utilizando modulos y subprogramas en 
VBA, los cuales te permitiran dividir el desarrollo de 
tu aplicacion en etapas que despues se uniran para 
resolver el problema general. 





Tornado de: Smartboard "Wikimedia commons". Fecha de consulta: 27/11/2011 
http://commons.wikimedia.orp/wiki/File:SmartBoard.JPG?uselanp=es 



Actualmente muchas escuelas estan realizando una serie de innovaciones en la 
metodologia de ensenanza, pues estan aprovechando el desarrollo de las 
tecnologias de la informatica y comunicacion para el desarrollo de sus clases y el 
logro de las competencias deseadas en los alumnos. Estas constituyen una gran 
herramienta de apoyo. 
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Supongamos que al profesor que aparece en la imagen se le ha pedido gestionar 
un programa con las notas de sus alumnos. <i,Que es lo primero que deberia hacer? 

Primero debe determinar que tareas va a realizar el programa, por ejemplo, 
permitir asignar la nota, modificarla, visualizarla segun apellidos o de mayor a 
menor, etcetera. Una vez que ha esquematizado cada una de las tareas, empezara 
a trabajar en estas para finalmente obtener el producto deseado. A esto se le 
conoce como programacion modular. 

Antes de empezar con el contenido de este capitulo, te invitamos a que leas el 
siguiente articulo acerca de la programacion modular. 



La programacion modular es un paradigma de programacion que consiste en dividir 
un programa en modulos o subprogramas con el fin de hacerlo mas legible y 
manejable. 



Entrada 


Parametros 






Proceso 


Subrutina 
o funcion 






Salida 


Valor de 
retorno 



Se presenta historicamente como una evolucion 
de la programacion estructurada para solucionar 
problemas de programacion mas grandes y 
complejos de lo que esta puede resolver. 



Al aplicar la programacion modular, un problema 
complejo debe ser dividido en varios 
subproblemas mas simples, y estos a su vez en otros mas simples. Esto debe 
hacerse hasta obtener subproblemas lo suficientemente simples como para poder 
ser resueltos facilmente con algun lenguaje de programacion. 

Un modulo es cada una de las partes de un programa que resuelve uno de los 
subproblemas en que se divide el problema complejo original. Cada uno de estos 
modulos tiene una tarea bien definida y algunos necesitan de otros para poder 
operar. En caso de que un modulo necesite de otro, puede comunicarse con este 
mediante una interfaz de comunicacion que tambien debe estar bien definida. 

Tornado de: "Programacion modular". Wikimedia La enciclopedia libre. Fecha de consulta: 20/11/2011 
<http://es.wikipedia.org/wiki/Programaci%C3%B3n_modular> 
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Tu trabajo 





A 


B 


C 


D 


E 


1 


Teorerna de Heron 




2 






3 


Vertice 


Abscisa 


Ordenada 




4 


1 


2 


5 




5 


2 


7 


3 






3 


4 


3 




7 






8 


Area 12 







Sub LeeuVeutice3 (xl, 
xl = Range ("B4" 
Range ("C 4" 
Range ( "B5" 
Range ("C 5" 
Range ( rr B6 rr 
Range ( rr C6 rr 



yl, x2, y2, x3 f y3 ) 



yl = 
x2 = 
y2 = 
x3 = 
y3 = 
End Sub 



Function CalcularLongitud (xl, yl, x2, 

CalculauLongitud = Sqr ( (xl - x2) 
End Function 



y2 ) As Single 
^ 2 + (yl - y2) 



Function CalcularSemiPer ittietro ( ladol, lado2, lado3) As Single 

CalcularSemiPer imetro = (ladol + lado2 + lado3) / 2 
End Function 



Function Calcular Area (p, 
Calculai:Ai:ea = Sqr (p 
End Function 



b, c) As Single 
(p - a) * (p - b) 



(P - c) ) 



Sub Hostrar (area) 

Range ( "B8") = Round (area, 2) 
End Sub 



Sub Heron () 

Dim xl As Single, x2 As Single, x3 As Single 

Dim yl As Single, y2 As Single, y3 As Single 

Dim ladol As Single, lado2 As Single, lado3 As Single 

Dim sp As Single, area As Single 

LeerVertices xl, yl, x2, y2 , x3, y3 

ladol = CalcularLongitud (xl, yl, x2, y2 ) 

lado2 = CalcularLongitud (x2 , y2 , x3, y3 ) 

lado3 = CalcularLongitud (xl, yl, x3, y3 ) 

sp = CalcularSemiPer imetro ( ladol, lado2, lado3) 
area = CalcularArea (sp, ladol, lado2, lado3) 
Hostrar area 



En este capitulo, tu trabajo consistira en elaborar un 
programa que te permita calcular el area de un triangulo 
conociendo sus coordenadas en el piano cartesiano y 
aplicando el teorerna de Heron. 
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Para empezar con el desarrollo del capitulo, abre una hoja de Excel 2010 y crea la 
siguiente hoja de calculo habilitado para macros. Guardala con el nombre 
heron.xlsm. 



— 


A 


B 


C 


D E 


1 


Teoi ema de Heron 




2 










■ 


Vertice 


Abscise 


Ore! en ad a 




4 


1 








5 


2 








6 










7 










S 


Area 




(M2 J y2) (x3 jy3 ) 











Esta sera la hoja de calculo que utilizaras para tu trabajo, en la cual se debe calcular 
el area del triangulo tomando como datos de entrada las coordenadas de sus 
vertices. 



A continuation se muestra la definition del problema a resolver: 

El teorema de Heron permite calcular el area de un triangulo conociendo la longitud 
de sus lados utilizando la siguiente formula: 

Area = p(p - a)(p - h)(p - c) 

Donde: a, b y c son los lados y p es el semipenmetro (la mitad del perimetro) 

Como se menciono anteriormente, en la hoja de calculo solo se tienen como datos 
de entrada las coordenadas de los vertices del triangulo, por tanto, inicialmente 
debes calcular la longitud de cada uno de sus lados utilizando la siguiente formula: 



longitud = (xl - x2) 2 + (yl - y2) 2 



3.1 Diagrama de modulos 



Un diagrama de modulos permite mostrar una vista grafica de la estructura de 
modulos o partes en la que dividiras el desarrollo de tu programa. Es utilizado en la 
etapa de analisis. 
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Un alumno ha elaborado el siguiente diagrama de modulos para utilizarlo en el 
desarrollo de un programa que le permita calcular el volumen de un cilindro. 
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Volumen 




• ^De cuantos modulos esta compuesto el 
programa? 

• ^Cuall es el nombre del modulo 
principal? 

• ^Por que crees que es importante la programacion modular? 



Luego de definir los modulos que utilizaras en tu programa, deberas elaborar el 
diseno de cada uno de ellos, para lo cual utilizaras los metodos aprendidos en el 
capitulo anterior (diagrama de flujo o pseudocodigo). 



Por ejemplo, a continuation se muestra el diagrama de flujo de los modulos 
definidos anteriormente para calcular el volumen de un cilindro. 







^^•^ radio, altura 






Este modulo lee el radio y la altura del 




cilindro. 






leer_datos(radio, altura) 
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calcular_volumen(radio, altura) 




Inicio 




volumen=3.14*radio A 2*altura 



Este modulo calcula el volumen del cilindro 
utilizando como datos el radio y la altura. 



mostrar_resultados(volumen) 

Inicio 



1 


r 


volumen 







Este modulo muestra el resultado del 
volumen. 




Fin 




volumen() 



Este es el modulo principal, el cual usa los 
modulos anteriores. 



Inicio 




leerdatosfradio, altura) 



vol u m e n = c a I c u I a i vol u m e n ( i a d i o r altura) 



m ostr a i r e su Ita d os( vol u m e in ) 




= in 



Aqui se invoca al modulo leer_datos. 



Aqui se invoca al modulo 
calcular_volumen usando el radio y la 
altura leidos. 

Aqui se muestra el resultado del volumen 
del cilindro. 



64 



Manejo de hojas de Calculo con Excel 2010 - Nivel Avanzado 




PONTIFICIA 

UN I YE RSI DAD 
CATOLICA 

DEL PERU 



Cuando disenas en pseudocodigo o 
diagrama de flujo, los nombres de variables 
y modulos no deben tener espacios en 
bianco. Tambien recuerda que, en diseno y 
programacion, las palabras usadas no 
deben llevar tilde. 




Ejercicio de aplicacion 1 



1) Una cajera de una tienda comercial necesita un programa que le permita 
calcular el subtotal, IGV y total de una venta. Para ello, cuenta con la hoja 
de Excel venta.xlsx, la cual se encuentra en la plataforma. 



I A 


A 


B 


c 




E 






















IGV 


total 1 


+ 




S/. 4.00 









Se te pide hacer lo siguiente: 

a) Elabora el diagrama de modulos que permita resolver el problema. 
Elabora el diseno en pseudocodigo de cada uno de los modulos que 
has definido para resolver el problema mencionado. 
Descarga de la plataforma el archivo venta.docx para revisar la 
solucion a las dos preguntas anteriores. 



b) 
c) 



2) Completa el siguiente diagrama de modulos para poder resolver tu trabajo 
de este capitulo: "calculo del area de un triangulo conociendo sus 
coordenadas en el piano cartesiano, utilizando el teorema de Heron". 

Calcular semiperimetro Mostrar area Leer vertices 

Calcular longitud Calcular area Heron 
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3) Completa el diagrama de flujo de los modulos que utilizaras para resolver 
tu trabajo. 



Ieer_vertices(x1 ,x2,y1 ,y2,x3,y3) 




Iriicio 



xl, yl, x2, , s 




: in 



calcular_longitud(x1 ,y1 ,x2,y2) 




longitude 




r 



calcular_semiperimetro(lado1,lado2,lado3) 




Semipenmetro =(ladol+lado2+ J/2 




calcular_area(p,a,b,c) 



1 


r 


=(p*(p- a )*(p-br(M)*o.5 




r 




mostrar_area(area) 



66 



Manejo de hojas de Calculo con Excel 2010 - Nivel Avanzado 



PONTIFICIA 

UNIVERSIDAD 

CATOLICA 

DEL PERU 



heron() 



Ieer_vertice5(xl f yl, x2, y2, x3, y3) 



ladol=calcular_longitud(xl J yl, x2, y2) 



=calcular_longitud(x2 f y2, x3, y3) 



lado3=calcular_longitud( r f P } 



p=calcular_semiperimetro (lad ol T lado2, lado3) 



area=calcular_area( ) 



m ostr a i a 


rea(araa) 








3.2 Subprogramas en VBA 

Como resultado de lo que viste en el apartado anterior, la programacion modular se 
basa en la filosofia de "divide y venceras", es decir, se divide el problema planteado 
en problemas mas simples, y cada uno de estos sera implementado en modulos 
independientes, los cuales en el entorno de VBA se conocen como subprogramas. 



Un subprograma es un conjunto de instrucciones o codigo fuente en VBA, que te 
permite realizar una tarea especifica. 
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En VBA existen dos tipos de subprogramas: 

• Funcion 

• Procedimiento 



3.2.1 Funcion 



Es un subprograma disenado para realizar una tarea especifica. Una funcion 
toma una lista de valores llamados argumentos o parametros y devuelve un 
unico valor. 



Al desarrollar un programa en VBA, 
puedes crear tus propias funciones o 
utilizar las funciones proporcionadas por 
el editor de VBA y Excel. 



Esta es la sintaxis para el uso de funciones en VBA: 




A 



Function <nombre>( argl. arg2. .... argn) as tipo 

<sentencias> instrucciomes que forman parte de la funcion 
<nombre> = <resultado> : Valor devuelto por la funcion 
End function 



Donde: argl, arg2, arg3, argn son los parametros o argumentos de la 
funcion. 



Por ejemplo: 

Funcion que calcula el promedio de 3 notas. 

Function not a_promedio (notal, notaS, nota3) As Single 
Dim p As Single 

p = (notal + nota2 + nota3) / 3 
not a_promedio = p 

End Function 



• ^Cual es el nombre de la funcion 
anterior? 

• ^Cuales son sus 
parametros? 

• ^Que tipo de dato 

devuelve? 
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Las funciones no pueden ser ejecutadas directamente 
desde el editor de VBA, para ello es necesario definir 
un procedimiento que las invoque. 
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3.2.2 Invocando a una funcion 

Invocar a una funcion se define como la llamada o uso que se hace a una 
funcion desde dentro de un subprograma. Para ello, debes digitar su nombre, 
sus argumentos entre parentesis y, finalmente, asignar el resultado a una 
variable. 



variable_resultado=nombre_funcion(arg1, arg2, arg3, , argn) 



Por ejemplo: 



Programa que usa una funcion que calcula el area de un trapecio. 



Area de un trapecio 



Base mayor | TextBoxl 
Base menor | TextBox2 
Altura | TextBox3 

Calcular 



Area 



TextBox4 



Recuerda que en este caso 
necesitas insertar un 
formulario en VBA. 



X 



Function t rapecio (basemayor , basemenor, altura) As Double 

trapecio = ( (basemayor + basemenor) * altura) / 2 
End Function 



Private Sub Commands uttonl_Click () 

bmayor = Val (TextBoxl. Text) Q 
bsaenor = Val (TextBox2. Text ) J Se invoca a 
altura = Val (TextBox3 . TeK^A^ ^ unci Q n frapeciO. J 
TeKtBox4 , Text = t rapecio fbmayo r, bmenor, altura) 

Er.d Sub 



Hazlo tu mismo 

Abre el editor de VBA, elabora y prueba el programa mostrado anteriormente. 
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3.2.3 Procedimiento 

Un procedimiento es la parte de un programa que realiza una o mas tareas 
relacionadas y que tiene su propio nombre. El procedimiento puede tener cero, 
uno o mas argumentos y puede devolver cero o mas resultados. 



Esta es la sintaxis para el uso de procedimientos en VBA: 



Sub <nombre>( argl. arg2. : . ... 7 argn) 

<sentencias> ; instrucciones que forman parte del procedimiento 
End Sub 



Donde: argl, arg2, arg3, 
procedimiento. 

Por ejemplo: 



argn son los parametros o argumentos del 



Procedimiento que usa una hoja de Excel y lee los datos necesarios para 
calcular el area de un trapecio. 



Sub LeerDatos (bmayor f bmenor, altura) 

bmayor = Range ("B2") 

bmenor = Range ("B3") 

altura = Range ("B4") 
End Sub 



3.2.4 Invocando a un procedimiento 

Invocar a un procedimiento se define como la llamada o uso que se hace a un 
procedimiento desde dentro de un subprograma. Esto lo puedes hacer de dos 
formas: 

• 1ra forma: NombreProcedimiento argl , arg2, arg3, , argn 

• 2da forma: Call NombreProcedimiento (argl, arg2, arg3, , argn) 

Por ejemplo: 



Programa que calcula el area de un trapecio leyendo y mostrando los 
resultados utilizando una hoja de Excel. 





A 


B 


1 






2 


Base mayor 




3 


Base rnenor 




4 


Altura 




5 






6 


Area 





Recuerda que en este 
caso necesitas insertar 
un modulo en VBA, 
para lo cual debes 
seleccionar la opcion 



X 
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Sub Lee rDatos (bmayo r f bmenor, altura) 

bmayor = Range ( "B2 " ) 

bmenor = Range ( "B3 " ) 

altura = Range ("B4") 
End Sub 



Function Trapecio (bmayor, bmenor, altura) As Double 

Trapecio = ( (bmayor + bmenor) * altura) / 2 
End Function 



Sub Most rar (area) 

Range ( "B6") = area 
End Sub 



Sub Principal () 

Dim bmayor As Double, bmenor As Double 
Dim altura As Double, area As Double 
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Se invaca a pracedimienta 

LeerDatos bmayor, bmenor, altura" - LeerDatOS. 

area = Trapecio (bmayor, bmenor, altui 
Call Most rar (area) 



End Sub 



Se invoca a 
procedimiento Mostrar. 




El programa anterior: 



^Cuantos procedimientos posee?_ 



^Cuantas funciones posee?_ 



^Cuantos subprogramas posee?_ 



Hazlo tu mismo 



Abre el editor de VBA, elabora y prueba el programa mostrado anteriormente. 



Averigua... 



Responde: 




Cuando creas una macro, <Lque tipo 
de subprograma se genera? 



Una Imea de codigo en VBA puede ser tan larga como desees, pero 
si quieres una mejor visibilidad, puedes hacer un cambio de linea 
dejando un espacio en bianco y a continuacion colocar el caracter 
Luego, continua el resto del codigo en la siguiente Imea. 
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r 



|Ejercicio de aplicacion 2 



Abre tu archivo venta.xlsx que descargaste anteriormente y realiza las 
siguientes operaciones: 

1 ) Ingresa al editor de VBA. 

2) Inserta un modulo. 

3) Crea un subprograma calcula_subtotal, que reciba como parametros la 
cantidad y el precio, y que devuelva como resultado el valor del subtotal. 

4) Crea un subprograma calcula_igv, que reciba como parametro el subtotal 
y calcule el valor del IGV. 

5) Crea un subprograma calcula_total, que reciba como parametros el 
subtotal y el IGV, y calcule el valor total de la venta. 

6) Crea un subprograma principal que lea los datos de las celdas, calcule el 
subtotal, IGV y total de la venta; para ello, se debe invocar a los 
subprogramas anteriores. 

7) Crea un subprograma limpiar, el cual te permita limpiar los valores de las 
celdas A3 y B3. 

8) En la hoja de Excel, inserta un boton y asocialo a tu subprograma 
principal. 

9) En la hoja de Excel, inserta un boton y asocialo a tu subprograma limpiar. 

10) Prueba la ejecucion de los subprogramas anteriores. 



3.3 Funciones predefinidas en VBA 

Son aquellas funciones que vienen incorporadas en VBA y que puedes 
utilizarlas o invocarlas desde dentro de tus subprogramas cuando lo necesites. 



3.3.1 Funciones de cadena de texto 

Una cadena de texto es un conjunto de caracteres numericos y/o 
alfanumericos. 



Estas funciones se dividen en tres grandes grupos: 




• Funciones de cadena de texto 



• Funciones de fecha/hora 



• Funciones matematicas 



Por ejempio: 




'hola mundo' 

'AIV-261" 

'12345" 



X 
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Posicion de un caracter en una cadena 

Se denomina posicion de un caracter en una cadena al lugar que ocupa 
comenzando a contar a partir de uno. 
Por ejemplo: 



Cadena 


V 




s 


u 


a 


I 




B 


a 


s 




c 


Posicion 


1 


2 


3 


4 


5 


6 


7 


8 


9 


10 


11 


12 



A continuation conoceras las funciones mas importantes para el manejo de 
cadenas de texto: 



Funcion 


Descripcion 


STR (numero) 


Convierte un numero a una cadena de caracteres. 

tjempio. 

STR(1 32454) 

Devuelve la cadena "132454". 


VAL (cadena 
numerica) 


Obtiene el valor de una cadena de numeros. 

Ejemplo: 

VAL("32345") 

Devuelve el numero 32345. 


LEFT fcadena n^ 


Muestra los caracteres en una cadena senun la cantidad 

que se asigna a partir de la izquierda. 

Ejemplo: 

Si cadena = "Visual Basic", entonces LEFT (cadena, 7) 
devuelve como resultado = "Visual ". 


RIGHT (cadena, 
n) 


Devuelve los ultimos "n" caracteres. 
Ejemplo: 

Si cadena = "Visual Basic", entonces RIGHT (cadena, 5) 
devuelve como resultado = "Basic". 


MID (cadena, m, 
n) 


Extrae "n" caracteres a partir de la posicion m. Si no 
especifica la longitud de caracteres a extraer, retira todos 
los caracteres desde la posicion especificada hasta el 
final. 

Ejemplo: 

Si cadena = "Visual Basic", entonces MID (cadena, 8,5) 
devuelve como resultado = "Basic". 


LEN (cadena) 


Muestra el tamano de la cadena. 
Ejemplo: 

Si cadena = "Visual Basic", entonces LEN(cadena) 
devuelve como resultado = 12. 
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Funcion 


Descripcion 


TRIM (Cadena) 


Omite los espacios al lado izquierdo o derecho de una 
cadena, pero no borra los espacios dentro de la misma. 

Ejemplo: 


H o 1 


a 








entonces TRIM(cadena) 


devuelve como resultado = 


H 


0 


1 


a 



Hazlo tu mismo 

Evalua las siguientes operaciones con funciones de cadenas de texto y coloca 
los resultados. 



Operacion 


Resultado 


RIGHT("Programaci6n Modular",7) 




MIDfAprendiendo Excel 
Avanzado", 13,5) 




LEN("lnfoPUC") 





|Ejercicio de aplicacion 3 | <y 



Disena el siguiente formulario: 



Concatenation de cadenas 



Nombre 
Apellido 

Fecha Nadmiento 



Textbox 1 



Generar Codigo 



Codigo 



Tex±iox4 



Luego, coloca el codigo fuente necesario para que, al hacer die en el boton 
Generar Codigo, se genere un codigo de usuario, tomando las dos primeras 
letras del nombre, las tres primeras letras del apellido asf como el ano de 
nadmiento del usuario. 



3.3.2 Funciones matematicas 



Son funciones que operan sobre datos numericos o devuelven datos 
numericos. Entre las principales de ellas se encuentran: 
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Funcion 


Descripcion 


Application. Pi() 


Devuelve el valor de tt (3,1416....) 


SQR (Numero) 


Devuelve la raiz cuadrada de un numero. 

Si variable = 9, entonces la funcion SQR (variable) 

devuelve como resultado = 3 


ABS (Numero) 


Muestra el valor absoluto de un numero. No tiene 
signo. 

Ejemplo: 

Si variable = -34.65, entonces la funcion ABS 
(variable) 

devuelve como resultado = 34.65 

La funcion ABS es util cuando se desea calcular la 
diferencia entre dos numeros, pero no se conoce 
cual es el mayor. 

Ejemplo: 

Si X- 40, Y-bO, entonces la tuncion ABS(40-oO) 
devuelve como resultado = 20 


Rnd 


Proporciona un numero aleatorio en el rango 0<= x 
<1. 

Ejemplo: Rnd*10 +1 

Devuelve numeros aleatorios entre 1 y 10. 


INT (Numero) 


Devuelve el entero mas grande de un numero con 
decimales. Si deseas que devuelva con dos 
decimales, puedes utilizar la siguiente formula: X= 
INT(100*X)/100 

Ejemplo: 

Si variable = 34.12, entonces la funcion INT 
(variable) 

devuelve como resultado = 34 


Round(Numero, 

decimales) 


Redondea un numero a un numero de decimales 
especificado. 

Ejemplo: Round (14,4583,2) 
devuelve como resultado =14,46 



Por ejemplo, el siguiente programa calcula el area de un circulo. 



Sub Area_ci rculo () 

r = InputBoK ("Ingrese el radio") 
p = Application. Pi () 
a = p * r 2 
a = Round (a, 2 ) 

MsgBox "El area del circulo es: " & a, vbDef ault Butt onl, "Area" 
End Sub 
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Hazlo tu mismo 

Abre el editor de VBA, elabora y prueba el programa mostrado anteriormente. 



Ejercicio de aplicacion 4 1 



Disena el siguiente formulario: 




Luego, coloca el codigo fuente necesario para que al hacer die en el boton 
Generar, se genere un numero entero aleatorio entre 1 y 10. 



3.3.3. Funciones de fecha y hora 

VBA cuenta con algunas funciones que permiten realizar calculos con fechas y 
horas, entre las principales de estas funciones se tienen: 



Funcion 


Description 


Date 


Muestra la fecha actual, con formato 
MM/DD/YYYY 

Donde: MM - Mes; DD - Dia; YYYY - Ano 


Time 


Devuelve la hora actual en el formato 
HH:MM:SS.SSS 

Donde: HH- Horas; MM - Mes; SS - Segundos 
SSS - Centesimas de segundos 



Por ejemplo, el siguiente programa devuelve la fecha y hora del sistema. 



Funciones de Fecha y Hora 




Fecha 
Hora 






Textbox l| 


Obtener Fecha v Hora 


Textbox 2 
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U£ Programa.xls - UserForm28 {Codigo) 




C om ma nd Button 1 



Click 



3 



Private Sub Cci™ar.d3uttonl_ClicJr() 
Texc3oxl*Text = DateTime.Dace 
Texc3ox2 .Text * DaueTime.Time 

End Sub 



Hazlo tu mismo 

Abre el editor de VBA, elabora y prueba el programa mostrado anteriormente. 



Elabora el programa solicitado en tu trabajo de este capitulo. Para ello, debes 
seguir la siguiente secuencia: 

1) Abre tu archivo heron.xlsm. 

2) Ingresa al editor de VBA. 

3) Inserta un modulo. 

4) Crea los siguientes subprogramas basandote en el diagrama de flujo cuyo 
diseno se completo en el ejercicio de aplicacion 1. 

a) Subprograma leer_vertices 

b) Subprograma calcularjongitud 

c) Subprograma calcular_semiperimetro 

d) Subprograma calcular_area 

e) Subprograma mostrar_area 

f) Subprograma heron 

5) En la hoja de calculo, inserta un boton y asocialo al subprograma 
principal. 

6) Prueba la ejecucion de tu programa 



r 



[Ejercicio de aplicacion 5 | 
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I^CUANTO APRENDI? 



I. Contesta las siguientes preguntas: 

a) ^Cual es la diferencia entre un procedimiento y una funcion? 



b) que se conoce como cadena de texto? 



c) ^Para que se usan los diagramas de modulos? 



d) Analiza las siguientes instrucciones: 
Dim texto as String, cad as String 
texto- 'cadena de caracteres" 
cad=MID(texto,11,LEN(texto)-10) 
^Cual es el valor final de la variable "cad"?_ 



Coloca V (verdadero) o F (falso) en las siguientes expresiones: 

1) La funcion INT sirve para redondear un numero a cero decimales. 

2) La funcion TRIM sirve para quitar los espacios en bianco a una cadena. 

3) Para invocar a una funcion se usa la palabra reservada Call. 

4) Calcular valor es un nombre correcto para un subprograma. 

5) Una funcion puede ser ejecutada directamente desde el editor de VBA. 



Elabora un programa que calcule el volumen de un cono, 
leyendo los datos de una hoja de Excel, tal como se 
muestra en la figura. 





A 


B 


1 


Volumen de un cono 


2 






3 


radio 


3 


4 


altura 


7 


5 






6 


volumen 


65.9736 



Recuerda que el volumen de un cilindro se calcula con la siguiente formula: 

W^radio 1 * altura 
3 



volumen = 



IV. Un agricultor desea cercar su granja con alambre y, ademas, cubrir con abono el terreno 
que la comprende. Para calcular el costo de materiales, debe tomar en cuenta lo 
siguiente: 
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• El terreno tiene la "forma de un rectangulo con 2 semicirculos a los extremos, tal] 
como se indica en la figura: 

L 

* * 




• El alambre se vende por rollos completos de P metros, siendo a soles el costo del 
rollo. 

• La cerca consta de 6 vueltas completas de alambre, en las cuales se usaran una 
cantidad Q de rollos. No debe sobrar una longitud de alambre mayor a P metros 
(tamano de un rollo) 

• Se estima que el costo del abono es de p soles por metro cuadrado de terreno. 

Se necesita realizar un programa en VBA que permita calcular el costo del proyecto, 
para ello debes realizar lo siguiente: 

1) Elabora el analisis del problema 

2) Elabora el diagrama de modulos considerando los siguientes modulos: 

• CalcularPerimetro 

• CalcularArea 

• CalcularNumeroRollos 

• Principal 

3) Elabora el diseno de cada uno de los modulos en diagrama de flujo. 

4) Implementa el subprograma CalcularPerimetro que reciba como parametros el 
radio de los semicirculos y el lado del rectangulo que forma la granja, y calcule el 
perimetro de la granja en metros. 

5) Implementa el subprograma CalcularArea que reciba como parametros el radio de 
los semicirculos y el lado del rectangulo que forma la granja, y calcule el area de la 
granja en metros cuadrados. 

6) Implementa el subprograma CalcularNumeroRollos que reciba como parametros 
el perimetro de la granja y la longitud del alambre que contiene cada rollo, y 
calcule el numero de rollos de alambre completos necesario para cercar la granja. 

7) Implementa el subprograma Principal, que lea los datos necesarios, use los 
subprogramas anteriores, calcule y muestre el costo total de materiales, tal como 
se muestra en la siguiente figura: 





A 


B 


1 


Datos <lft Entrada 


2 


Radio, r : 


5 


3 


Udc, L: 


20 


4 


Longitud de rollo. A: 


30 


5 


cl (soles/rollo): 


100 


6 




80 


7 


Costo (soles): 


23793.2 


H ^ 


► M[\Hojal/Hoja2 |i 
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V. Un alumno desea calcular el volumen de un lapiz, para lo cual divide su problema en tres 
secciones: la punta del lapiz (forma de cono), el cuerpo del lapiz (forma de cilindro) y el 
borrador del lapiz ( forma de media esfera), tal como se muestra en la siguiente figura: 

Allura AHura 
Punta euetpo 

I 1 1 



Las dimensiones del lapiz seran leidas desde una hoja Excel, similar a la siguiente: 



A i 
1 Volumen del lapiz 



3 radio 



4 altura punta 



5 altura cuerpo 



7 volurnen 



Se te pide realizar lo siguiente: 

a) Elaborar el analisis del problema 

b) Elaborar el diseno en pseudocodigo basandote en el siguiente diagrama de modulos 




Lwr Dafos 



Capillar yftlumari 
total 



d«l bona do r 



Cukularvflluinfi&fi 
d«l wis rp o 



d« is punta 



c) Elaborar la implementation en VBA de cada uno de los modulos 
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Troyecto 




Tercera etapa 

Ahora aplicaras el concepto de programacion modular que has aprendido en este 
capitulo, para poder elaborar la calculadora con guincha; para ello, debes realizar lo 
siguiente: 

1 . Abre el archivo de tu proyecto. 

2. Implementa los subprogramas necesarios para el funcionamiento de las 
operaciones de tu calculadora tales como adicion, sustraccion, multiplication, 



Hasta este momento tu calculadora deberia realizar las principales operaciones, en 
el siguiente capitulo aprenderas algunas herramientas adicionales que te permitiran 
concluir con la elaboracion de tu calculadora con guincha. 



etcetera. 
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Anotaciones 
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CAPITULO 4 



ESTRUCTURAS DE CONTROL 



En este capitulo, aprenderas a incorporar 
estructuras de control a tus programas, las 
cuales te permitiran controlar la ejecucion del 
flujo de instrucciones de los mismos. 





Tornado de: "Decisions". Wiki media Commons. Fecha de consulta: 28/11/2011 
http://commons.wikimedia.Org/wiki/File:Decisions, decisions - peociraph.orci.uk - 912859.jpg 



En muchas oportunidades nos encontramos ante problemas o situaciones 
particulares, en las que tenemos que decidir las acciones a realizar de acuerdo a 
ciertas condiciones que nos permitan controlar la situacion. De igual modo, al 
desarrollar un programa existen determinados pasos que se deben ejecutar 
dependiendo de condiciones del mismo programa. En este capitulo, aprenderas 
acerca de las estructuras de control. 
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Un robot japones que aprende a tomar decisiones 



Los investigadores del Grupo de Hasegawa en el Instituto de Tecnologia de Tokio 
han creado un robot que es capaz de aplicar los conceptos aprendidos para realizar 
nuevas tareas, entender su entorno y para llevar a cabo las instrucciones que antes 
no sabia como hacer. 

El robot tiene una tecnologia neural detras que le permite averiguar que hacer en 
una situacion dada mediante el almacenamiento de informacion en una red 
construida para imitar el cerebro humano. 

Por ejemplo, el equipo demuestra su tecnologia pidiendo al robot llenar un vaso con 
agua de una botella, lo que lo hace muy rapido y habilmente. Esta parte no es nada 
nuevo, el I esta simplemente siguiendo las instrucciones predefinidas. En la 
siguiente ronda, sin embargo, al robot se le pide que enfne la bebida. Esta vez, el 
robot tiene que hacer una pausa para considerar lo que debe hacer para llevar a 
cabo esta nueva solicitud. 

Se puede ver inmediatamente que no se puede llevar a cabo la solicitud de nuevo 
bajo las circunstancias actuales, ya que ambas de sus manos ya estan siendo 
utilizadas (uno para sostener la copa y la otra la botella), de modo que coloca la 
botella hacia abajo y, luego, Mega a recuperar un cubo de hielo y rapidamente lo 
deposita en la taza. 



Esta pequena demostracion, si no es tan emocionante para ver, representa un 
verdadero salto adelante en la tecnologia robotica y programacion. Ser capaz de 
aprender significa que el robot puede ser programado con solo un conjunto muy 
basico de conocimientos previos que luego se construye sobre el tiempo en que el 
robot existe, sin necesidad de programacion adicional, no muy diferente de como los 
seres humanos comienzan con muy poca informacion al nacer y van aprendiendo 
sobre lo que van experimentando y son capaces de hacer esto durante toda la vida. 

Tornado de:Tecnoark Internet Noticias de ciencia tecnologia actual. Fecha de consulta: 27/11/2011 
Jrttgj/tecnoari^o^ 
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En este capitulo, tu trabajo consistira en elaborar un programa que 
te permita simular la famosa carrera entre la liebre y la tortuga. 



Tu trabajo 



La carrera entre la Liebre y la tortuga 



Ingrese distancia 
a recorrer: 



Ingrese numero 
de simulaciones: 



Simular 



Carreras ganadas I 357 
por la liebre: 



Carreras ganadas I 143 
por la tortuga: 



5tU& principal | J 

Dim nuiiiSlt™ lactones Ag Inceejer 
Pirn aitnul As Integer 
I'ltii lieijce ks IntegEr 

Linn tor ruga is Integer 

I'ltii BEta Is Integer 

Tueto - Range | "bl^) 

nLituSlimilacLQues - RancjE I "ft2 "\ 
liebre - Q 

i-orr-tiaa = 0 

For aiitiul - 1 Td nujiifiii™ Ian rones: 

If slLmnaCacreiafJnecal = "lLebre" Then 
liehife - liebre + 1 

Use 

tartugo - tnctuga + 1 
Itud II 

Heat 

Kancje | 7ti3" J = Liefcuce 

Ennge | w b<3 w ) - tactuga 
EHIl E'Jfc 



r-unction a lim\ 1 aCarrera C BTVaL meta As Integer) As Serine/ 
Dim I As Integer 
Plm t As Integer 
L = D 
t - u 

Pd While (I < tretal And (t < tnetal 
I - L + wv-smce ( Fl liebrc" r End(|J 
c - t + ovance f'tortu' 1 , fl.nd()l 

Loop 

If (I > t| Then 

airaulaCarrera = "llefcire 1 ' 

Else 

nirauloCarrerci - ,T ■c□r^:ujgla p, 
End II 



Fuii^crcm evence (ByVel p Aa Ecrl-ng, ByVel -v Aa Single) JLs Integer 

II |p = ""tDrtuaa. 1 ') Tnett 
If (v <= 0.3| Then 

■avarice — 1 

El=e 

evance — 2 
End II 

ElaE 

If (v ■=:- 0,75) Then 

evance - 1 
Elseli (v -c- D.B) Then 

avance - 2 

Else 

■avarice - 3 
End If 
End II 
End Function 
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Para empezar con el desarrollo del capitulo, abre una hoja de Excel, ingresa al 
editor de VBA y disena el siguiente formulario. Guarda tu archivo con el nombre 
simulacion.xlsm. 



La carrera entre la Liebre y la tortuga 




Ingrese distancia 
a recorrer: 

Ingrese numero 
de simulaciones: 1 


Carreras ganadas 
por la liebre: 

Carreras ganadas 
por la tortuga: 

Simular 





Este sera el formulario que utilizaras para tu trabajo, en el cual se debe calcular el 
numero de carreras ganadas por la liebre y la tortuga de un total de carreras 
simuladas. 

Para resolver el problema, debes tener en cuenta las siguientes condiciones: 

• Se generaran avances por unidad de tiempo de diferente magnitud para la liebre 
y la tortuga durante toda la carrera. 

• Ambos corredores partiran desde una misma posicion inicial. 

• La carrera terminara cuando uno de los participantes alcance o exceda la 
distancia ingresada como dato. 

f 

Para resolver tu trabajo, 
necesitas conocer las 

tactri mti irac rl^ rnntrnl 



En el mundo de la programacion, existen dos tipos de 
estructuras de control: 

• Estructuras de control condicional 

• Estructuras de control de ciclos repetitivos 
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4.1 



Estructuras de control condicional 



Son aquellas que permiten verificar si el programa cumple una determinada 
condicion para que se puedan ejecutar un conjunto de instrucciones definidas. 

Por ejemplo: si se desea imprimir el resultado final que obtuvo un alumno en el 
curso de computation, se deberia llegar a la siguiente condicion: 

Si el promedio es mayor que 10.5 , entonces 

Imprimir "Aprobado" 
Caso contrario 

Imprimir "Desaprobado" 



En VBA, los principales tipos de estructuras condicionales son las 
siguientes: 

• Condicional simple de la forma: If.. ..then 

• Condicional con contingencia de la forma: If.. ..then. ...else 

• Condicionales anidadas 

• Condicional multiple de la forma: Select.... case 



r 



A continuation veras cada uno de los tipos de estructuras condicionales con 
mayor detalle. 



4.1.1 Condicional simple de la forma: If... then 

Se utiliza cuando se necesita realizar un conjunto de acciones establecidas 
siempre y cuando se cumpla una condicion. 

Su sintaxis es la siguiente: 



\f< expresion booleana? then 
<sentencias> 

End If 



El resultado de una 
expresion booleana 
puede ser TRUE 
(verdadero) o FALSE 




x 



Lo cual quiere decir que si se cumple la expresion booleana, se realizan todas 
las sentencias escritas despues del then. 
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Su representation en diagrama de flujo es la siguiente: 




Observa el siguiente ejemplo de aplicacion: 



Se desea disenar e implementar un programa que permita verificar si un numero 
es par o impar. 



Diagrama de flujo 



Initio 




1 


F 


resto=tiumero mod 2 








'"El numero 
es par =: 




Diseno del formulario 



El programa solicitara el ingreso del numero y al 
hacer die en el boton Verificar, se mostrara un 
MessageBox indicando si el numero es par. 







Ingrese numero: 

Verificar 


1 
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Implementation del programa 



Private Sub CommandButtonl Click () 




Dim resto As Integer 




resto = Val (TextEoxl . Text) Hod 


2 


If (resto = 0) Then 




HsgEox "El numero es par", 


vtaDef aultButtonl, "Resultado" 


End If 




End Sub 





Hazlo tu mismo 

Elabora y prueba el programa mostrado anteriormente utilizando VBA. 



4.1.2 Conditional con contingencia de la forma: If... then... else 

Se utiliza cuando se ha planificado la ejecucion de un grupo de instrucciones 
cuando la condition es verdadera, y otro grupo de instrucciones cuando la 
condition es falsa. 



Su sintaxis es la siguiente: 



If < exp resto n b o o tea n a > the n 

<sentencias 1> 

Else 

<sentencias 2> 

End If 



Su representation en diagrama de flujo es la siguiente: 




1 


r 




Bloque falso 
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Hazlo tu mismo 



Modifica el diagrama de flujo, diseno del formulario e implementacion del 
programa anterior para que muestre si el numero ingresado es par o impar. 



Ingrese numero: 



r 



14 



Verificar 



El numero es par 



OK 



iEs par o impar? 



Ingrese numero: 



Verificar 



2£j 

El numero es impar 

i 



OK 



Diagrama de flujo 
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Implementation del programa 



|Ejercicio de aplicacion 1 



"I 



1) Elabora el diseno e implementation de un programa que permita calcular 
el sueldo neto de un trabajador, teniendo como datos de entrada su 
sueldo base y el numero de hijos. Al trabajador se le descuenta el 5% de 
su sueldo por el seguro social, pero si tiene mas de 3 hijos se le paga 
S/.100 soles adicionales. 

2) A continuation se muestra el diagrama de flujo del diseno de un programa 
que permite calcular el mayor de tres numeros. 
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nuirerol, nuirero2. nuireroS, irayor 



it ay or = 0 





mayor = rurneroB 



t 

mayor 




Se te pide hacer la implementation en VBA del programa leyendo los 
■ datos desde un formulario. 

L 

4.1 .3 Condicionales anidadas 

Se utiliza cuando una de las sentencias de una estructura condicional es otra 
estructura condicional. 

Por ejemplo: en una tienda comercial, desean hacer un descuento a sus clientes 
tomando como primera condition que sean de sexo femenino y, dentro de esta 
condition, que sean mayores de 50 anos. 
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Existen diferentes formas de anidar estructuras condicionales, por lo que no 
existe una sintaxis unica. Aqui un ejemplo de sintaxis basado en el ejemplo 
anterior: 



If sexo=femenino then 

If edad?5Q then 

A ccede a I descu en to 

Else 

No accede of descu en to 

En d If 



Else 



End If 



No a ccede a I descu en to 



Cuando trabajas con 
estructuras condicionales 
anidadas, todo bloque de 
sentencias que tenga 
mas de una instruction 
debe terminar con End 
if 




V 



Hazlo tu mismo 



Elabora el diagrama de flujo del pseudocodigo mostrado anteriormente. 



Observa el siguiente ejemplo de aplicacion: 

Se desea elaborar un programa en VBA que permita clasificar la resistencia de 
un producto cuando se lo expone a altas temperaturas, teniendo como dato de 
entrada el porcentaje de perdida de peso del producto y como salida la 
clasificacion correspondiente. 



Porcentaje de perdida de peso 


Clasificacion 


Menor o igual a 1 


Altamente resistente 


Mayor a 1 pero menor o igual a 5 


Resistente 



93 



PONTIFICIA 

UNIVERSIDAD 

CATOLICA 

DEL PERU 



Manejo de hojas de Calculo con Excel 2010 - Nivel Avanzado 



Mayor a 5 pero menor o igual a 
10 


Medianamente 
resistente 


Mayor a 10 pero menor o igual a 
20 


Muy poco resistente 


Mayor a 20 


No resistente 



Diagrama de flujo 




"No 
resistente" 




"''Altairente 
resistente" 




"Resistente'" 



"Medianairente 
resistente" 




"Muy poco 
resistente" 
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Implementation del programa 



Sub Programa () 

Dim pp As Single 

pp ■ InputBox ( "Ingrese el porcentaje de perdida de peso") 
If (pp <= 1) Then 

HsgBox ("Altamente resistente") 

Else 

If (pp <= 5) Then 

HsgBox ("Resistente") 

Else 

If (pp <= 10) Then 

HsgBox ( "Hedianamente resistente") 

Else 

If (pp <= 20) Then 

HsgBox ("Huy poco resistente") 

Else 

HsgBox ("No resistente") 
End If 
End If 
End If 
End If 

End Sub 



Hazlo tu mismo 



Elabora y prueba el programa mostrado anteriormente utilizando VBA. 



4.1.4 Conditional multiple de la forma Select... case 

Permite ejecutar un conjunto de sentencias que posee varios bloques, similar a 
la sentencia If.. .then. ..else, con la diferencia de que el codigo es mas 
comprensible al existir varias opciones. 



Por ejemplo: se desea elaborar un programa que reciba 
como dato de entrada un numero entero entre 1 y 7, y 
luego escriba el dia de la semana correspondiente. Es 
decir: 1=Lunes, 2=Martes, 3=Miercoles, 4=Jueves, 
5=Viernes, 6=Sabado, 7=Domingo 

La sintaxis de una conditional multiple es la siguiente: 




Aqui se ejecutan las sentencias 
ubicadas en la lista que coincidan 
o contengan el valor de la 
expresion. 



SelectCase < expresion > 
Case lista 1 

<sentencia5l> 
Caselis:a 2 

<sentencias 2> 
Case lista 3 

<sentencias 3> 



Case Else 

<sentencias n> 

End Select 
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Si la expresion no se encuentra en ninguna de las listas, entonces se ejecutan 
las sentencias del bloque Case Else. Este es opcional, se coloca solo si es 
necesario. 

Su diagrama de flujo es el siguiente: 




Valor 1 


Bloque de in&truccioneE.l 


1 * 


Valor2 




Bloque de in&truccione&I 


► 


Valori 




Bloque de in&truccione^ 


+ 






Valor4 
' 


Bloque de in&truccione5.4 





Hazlo tu mismo 



Teniendo como referenda el ejemplo mencionado anteriormente (imprimir el dia 
de la semana basandote en el numero ingresado como dato), elabora el 
diagrama de flujo que te permita resolver el problema. 
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Implementation del programa 



Sub Programa ( ) 

Dim nuin As Integer 

num = InputBox ( "Escribe un niimero entre 1 y 7") 



Select Case nuin 




Case 1 




HsgBox 


("Lunes") 


Case 2 




HsgBox 


("Hartes") 


Case 3 




HgBox (' 


'Hieucoles") 


Case 4 




HsgBox 


; "Jueves") 


Case 5 




HsgBox 


["Vieunes") 


Case 6 




HsgBox 


("Sabado ") 


Case 7 




HsgBox 


\ "Domingo ") 


Case Else 




HsgBox 


\ "Nuineuo fuera de uango") 



End Select 
End Sub 



A continuation, observa y completa el siguiente ejemplo de aplicacion sobre 
condicionales multiples: 

Una cadena de tines, cuya entrada es de 10 soles por persona, presenta la 
siguiente oferta a sus clientes: 

• Si compra 1 entrada, descuento =0 

• Si compra 2 entradas, descuento =0.1 %*importe 

• Si compra 3 o 4 entradas, descuento =0.2%*importe 

• Si compra 5 o 20 entradas, descuento =0.3%*importe 

Se pide elaborar un programa que permita calcular el descuento y el importe 
neto a pagar, utilizando el siguiente formulario. 



Fact ur acid n 
Costo unitario por entrada 

INumero de entradas 

Importe 

Descuento 

Neto a pagar 

Calcular 
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Diagrama de flujo 







n_entradas : c_entrada. : p_descuento : descuento : netopagar 







P d?s client c = Z P d?snieiLtc =0.1 P descuento =0.2 P descuento = 0.3 




1 





. 3 = 4 


P descuentD =0.2 







5 ... 20 



descuento = p_descuento*importe 
netopagar = importe- descuento 



descuento 
netopagar 




Hazlo tu mismo 

Elabora la implementation del programa. 
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Ahora observa el siguiente ejemplo de condicionales multiples utilizando el control 
ListBox. 



Un instituto cobra su pension a los estudiantes segun el turno al que se 
matriculan. 

• Para el turno manana, la pension es 200. 

• Para el turno tarde, la pension es 220. 

• Para el turno noche, la pension es 180. 

Se pide cargar en un ListBox los turnos y, segun el turno elegido, mostrar en un 
control TextBox el valor de la pension que se deberia pagar. 

Hazlo tu mismo 

Completa el diagrama de flujo. 



turno . pension 




Diseno del formulario 



Pension 



• .banana Calcular Pension 

Tarde 



Noche 
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Implementacion del programa 

El control ListBox permite mostrar una lista de elementos. Los indices de la lista 
ListBox turno inician en cero. 



Turno 


Indice 


Manana 


0 


Tarde 


1 


Noche 


2 



Private Sub UserForni_Act ivate ( ) 
ListBoxl . Addltem ("Manana") 
ListBoxl . Addltem ("Tarde") 
ListBoxl . Addltem ("Noche") 

End Sub 



Private Sub CommandButtonl_Click ( ) 
Select Case ListBoxl . List Index 



Case 
Case 
Case 
End Select 
End Sub 



TextBoxl . Text = 200 
TextBoxl . Text = 220 
TextBoxl . Text = 180 



ListBoxl. Listlndex devuelve 
el indice del elemento 
elegido. 




|Ejercicio de aplicacion 2 ^1 



1) Elabora el diseno e implementacion de un programa que permita clasificar 
a una persona de acuerdo a su edad basandote en la siguiente tabla: 



Edad 


Clasificacion 


De 0 a 1 ano 


Bebe 


De 2 a 12 anos 


Nino 


De 13 a 18 anos 


Adolescente 


De 19 a 69 anos 


Adulto 


Mas de 70 anos 


Anciano 



La edad debe ser ingresada por el usuario. 

2) Se desea elaborar un programa que permita calcular las raices de una 
ecuacion de segundo grado (Ax 2 + Bx + C = 0). 

Recuerda que la formula para el calculo de raices de una ecuacion de 

-B±VB 2 -4AC 
segundo grado es la siguiente: 2A 

Se te pide elaborar el programa utilizando el siguiente pseudocodigo: 
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'Declarar variables 




INldgJNdr IU Utr LI|JU lUglLU 




discriminate, raizl, raiz2 delipo real 




ingresar coeficientes A, B y C 




'Asurnir que no tiene raices irnaginanas 




innaginario = falso 




Si A=0 y B=0 f entonces 




Iniprimir "Ecuacion sin raices" 




Caso contra no 




Si A=0 'por teoria 




Irnprirnir "No es ecuacidn de segundo grado" 




Caso contra no 




'Calcular discriminants 




Discriminanle = B : -4*A*C 




Si discriminants < 0, entonces 




'portsona las raices son irnaginanas 




Imprinnir "las raices son irnaginanas" 




Caso contrano 




'Calculo de las raices 




raizl =(-B + (Discriminante) A (l/2)) / (2*A) 




raiz2 = (-B - (Discriminante) A (l/2)) / (2*A) 




Fin del "Si w 




Fin del "Si* 




Fin del "Si" 



El formulario que debes usar es el siguiente: 



Calcular Raices & 



Ingrese Coefidentes 

i 2 , 2 , 

Fx * r x + r 

ABC 




Calcular Raices 




Raiz 1 






Rafe2 
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3) Abre el archivo de tu trabajo de este capitulo, ingresa al editor de VBA y 
crea una funcion llamada Avance, que reciba como parametros el nombre 
del corredor y un numero real entre 0 y 1. Esta funcion debe devolver un 
valor entero que represente el avance de la liebre o la tortuga (segun el 
parametro ingresado) de acuerdo a las siguientes condiciones: 

a) Avance de la liebre: si el numero ingresado como parametro es menor 
o igual a 0.75, entonces el avance es igual a 1. Si es menor o igual a 
0.9, el avance es 2. En otro caso, el avance es igual a 3. 

b) Avance de la tortuga: si el numero ingresado como parametro es 
menor o igual a 0.3, entonces el avance es 1, en caso contrario, el 
avance es igual a 0. 
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4.2 Estructuras de control de ciclos repetitivos 

Las estructuras de repetition permiten ejecutar una o mas lineas de codigo 
repetidamente. A los bloques de instrucciones repetitivos, se les conoce como 
bucles o iteraciones. 



Por ejemplo: 

Si se desea elaborar un programa que imprima 
los 100 primeros numeros naturales, con lo que 
conoces hasta el momento lo lianas de la 
siguiente manera. 



Irnprimir 1 
Irnprimir 2 
fmprimir 3 

Irnprimir 100 



estructura 
secuencial 



Pero utilizando estructuras de 
control de ciclos repetitivos, lo 
podrias hacer con un algoritmo 
mas simple como este. 



Para numero=1 hasta 100 

Irnpnrmrnurnero 
Fin Para 



estructura 
iterativa 



En VBA, los principales tipos de estructuras de control de 
ciclos repetitivos son los siguientes: 

• Ciclos de la forma: For.... Next 

• Ciclos de la forma: Do. ..Loop While 



X 



4.2.1 Ciclos de la forma For. ..Next 

Se utiliza cuando se conoce el numero exacto de repeticiones que se van a 
ejecutar. 



Su sintaxis es la siguiente: 



Forcontador=<va/or inicial> To <valot final? Step <t'ncremento> 
<sentencias> 

Next 



El bloque de sentencias es ejecutado tantas veces como lo indique el contador 
desde su valor inicial hasta su valor final, tomando en cuenta el incremento o 
decremento indicado en Step. 
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El contador es una forma de controlar las 
iteraciones realizadas. Este sufre un 
incremento o decremento en una cantidad fija 
en cada iteration. Si no se coloca Step, el 
contador se incremental en 1 en cada 
iteration. 



Su diagrama de flujo es el siguiente: 










1 


4- 




14-1+1 


f 


+ 




Bloqua 
Repefitrvo 



Donde: 

I: es el contador 

vi: es el valor inicial del contador 
vf: es el valor final del contador 



Observa el siguiente ejemplo de aplicacion: 



Se desea elaborar un programa que permita imprimir los numeros pares del 2 al 
10 (ambos inclusive). 



Sub pares ( ) 

Dim i As Integer 

For i = 2 To 10 Step 2 
MsgBox (i) 

Next 
End Sub 



Un acumulador o totalizador tiene como objetivo guardar las 
sumas sucesivas de una variable resultante dentro de una 
iteration. 

Por ejemplo: si la variable nuevo_valor se va calculando dentro de 
una iteration, entonces si deseas acumular los valores de esta 
variable, debes hacer lo siguiente dentro de la iteration: 
suma =suma+nuevo_valor 

donde suma es el acumulador. 



t 
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A continuation un ejemplo de aplicacion con el uso de un acumulador: 

Se desea elaborar un programa que permita calcular el valor de la siguiente 
serie: 

111 1 

1 + — + - + — + ... + — 
2 3 4 n 



Donde "n" es un numero 
ingresado por el usuario. 



Hazlo tu mismo 



Sub serie () 

Dim n As Integer, i As Integer 
Dim suma As Single 

n = InputBox ( "Ingrese el valor de n") 
suma =0 T Se inicializa el acumulador 

For i = 1 To n T El incremento sera 1 
suma = suma + 1 / i 

Next 

MsgBox ("suma: " & suma) 
End Sub 



1) Ingresa al editor de VBA, elabora y prueba los dos programas anteriores. 

2) Modifica el programa que calcula los numeros pares para que devuelva los 
numeros impares del 1 al 15. 

4.2.2 Ciclos de la forma Do.. ..Loop While 



Este tipo de estructura se usa cuando no se conoce el numero de iteraciones. 
Las instrucciones se ejecutaran mientras la condition establecida sea 
verdadera. 



Su sintaxis es la siguiente: 



Do 

<sen1encias> 
Loop While <exprest'6n log tea > 



Su diagrama de flujo es el siguiente: 



Un interruptor (switch, centinela, bandera 
o flag) te permiten controlar si se 
ejecutaran ciertos bloques de programa. 
Tiene dos valores diferentes a lo largo de 
la ejecucion del programa, estos pueden 
ser 1 y 0, verdadero y falso, si y no, 
etcetera. 





1 


t 


► 


instrucciones 




1 




V 


Expresidn 



Irigica 



X 
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Se desea elaborar un programa que permita calcular el promedio de notas 
del curso de computation. El programa se detendra cuando el usuario 
ingrese un valor negativo. 
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Implementation del programa 



Sub 


promedio () 




Dim nota As Single, suma As Single, promedio As Single 




Dim i As Integer 




Dim salir As Boolean 




suma = 0 




i = 0 




salir = False 




Do 




nota = InputBox ( "Ingrese nota") 




If (nota > 0) Then 




suma = suma + nota 




i = i + 1 




Else 




salir = True 




End If 




Loop While (salir = False) 




promedio = suma / i 




MsgBox ("El promedio es : " & promedio) 


End 


Sub 



Analiza el codigo del programa anterior y responde: 

• ^Cual es el nombre de la variable que funciona como "contador"? 



• ^Cual es el nombre de la variable que funciona como "acumulador"? 



• ^Cual es el nombre de la variable que funciona como "interruptor"? 



• ^Cuantas iteraciones hace el programa? Comenta 



Hazlo tu mismo 

Ingresa al editor de VBA, elabora y prueba el programa anterior. 



Dependiendo del problema presentado, en ocasiones 
conveniente colocar la expresion logica al initio del bucle, pi 
que su sintaxis tomaria la siguiente forma: 

Do While (expresion logica) 
<sentencias> 

Loop 

105 




PONTIFICIA 

catol^ca AD Manejo de hojas de Calculo con Excel 2010 - Nivel Avanzado 

DEL PERU 



Ahora observa y completa el siguiente programa: 



El profesor de computation desea elaborar un programa que permita obtener 
information acerca de los alumnos de un aula. 



• Numero de alumnos de sexo masculino 

• Numero de alumnos de sexo femenino 

• Edad promedio 

• Nota promedio del aula 

El programa leera como primer dato el numero de alumnos del aula y, luego, 
utilizando una estructura de repetition, para cada alumno se debe leer el sexo, 
la edad y su nota. 

Completa la implementation del programa. Las instrucciones faltantes estan 
como comentarios. 

Sub Programa ( ) 

Dim num As Integer, sexo As String, edad As Byte, nota As Single 

Dim i As Integer, masc As Integer, feme As Integer 

Dim sumaedad As Single, sumanota As Single, edadpr As Single, notapr As Single 

'en esta linea debes leer el numero de alumnos y asignarlo a la sariable "num" 

'en esta linea inicializa el contador i 

'en esta linea inicializa el contador masc 

'en esta linea inicializa el contador feme 

Do While (i < num) 

sexo = InputEox ( "Sexo : ", "Alumno " £ i) 

edad = InputEox ( "Edad : ", "Alumno " £ i) 

'en esta linea lee la nota y asignalo a la variable "nota" 

If (sexo = "H" Or sexo = "m") Then 

1 en esta linea incrementa el contador masc en 1 

Else 

If (sexo = "F" Or sexo = "f") Then 

feme = feme + 1 
End If 
End If 

' en esta linea incrementa al acumulador sumaedad la edad leida 



sumanota = sumanota + nota 
i = i + 1 

Loop 

edadpr = sumaedad / num 

'en esta linea debes calcular la nota promedio y asignarlo a la variable "notapr" 



HsgEox ("Edad promedio: " £ edadpr) 

HsgEox ("Nota promedio: " £ notapr) 

HsgEox ("Nro. de hombres : " £ masc) 

'en esta linea inuestra el numero de inujeres 



End Sub 
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|Ejercicio de aplicacion 3 



1) Disena e implementa un programa que permita calcular el factorial de un 
numero. Recuerda que el factorial de un numero se halla de la siguiente 
manera: 

Factorial (N)=1*2*3* *N 

Se sugiere que sigas estos pasos: 

a) Crea una funcion factorial que reciba como parametro un numero y 
que aplique la formula indicada anteriormente para calcular el factorial 
de dicho numero. 

b) Crea un programa principal, que lea un numero y, si es mayor que 
cero, calcule su factorial, en caso contrario debe mostrar el mensaje 
"El numero debe ser mayor que cero". 

2) Disena y elabora un programa que lea un numero y muestre cada uno de 
sus digitos en un control ListBox, tal como se muestra en la figura: 



Digitos de un numero 



Ingrese numero: 



4751 



Mostrar 



Digitos: 



3) Abre tu archivo simulacion.xlsm, ingresa al editor de VBA y haz lo 
siguiente: 

a) Crea un subprograma Simula que reciba como parametro la distancia 
a recorrer en la carrera y devuelve el nombre del ganador de la 
carrera. Por cada iteracion, el subprograma debera determinar el 
avance de cada corredor, para ello deberas invocar a la funcion 
Avance (que ya la creaste anteriormente). Para generar un numero 
aleatorio entre 0 y 1, debes utilizar la funcion Rnd(). 

b) Crea un subprograma Principal, que lea la distancia de la carrera y el 
numero de simulaciones a realizar. Luego, que simule N veces la 
carrera, cuente cuantas veces gano cada corredor y muestre los 
resultados. 



c) Prueba la ejecucion de tu programa. 
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^CUANTO APRENDI? 



I. Contesta las siguientes preguntas: 

a) ^Cuando se utilizan las estructuras de control repetitivas? 



b) ^Cual es la diferencia entre un acumulador y un contador? Escribe un ejemplo para 
cada uno de ellos. 



c) Analiza las siguientes instrucciones> 
Dim i as Integer 

Fori=0To68 Step 2 

<sentencias o instrucciones> 

Next 

^Cuantas iteraciones se ejecutaran en el bucle mostrado anteriormente?_ 

d) Analiza las siguientes instrucciones: 
Dim i as Integer, suma as Integer 
suma=0 

Fori=3 To 10 

suma=suma+i 

Next 

^Cual es el valor final de la variable "suma"? 



Elabora el diseno e implementation de un programa que calcule el promedio de 4 
evaluaciones de un estudiante. Si el promedio es mayor a 10.5, debe mostrar el 
mensaje "Aprobado", en caso contrario, debe mostrar el mensaje "Desaprobado". 

La sucesion de Fibonacci se define asi: ai=1, a 2 =1, a n =an-i+a n -2 para n>2 

Por ejemplo, estos son los primeros terminos de la sucesion: 1, 1, 2, 3, 5, 8.... 

Elabora un programa que permita calcular cualquier termino de la sucesion 
deFibonacci, tomando en cuenta el siguiente diagrama de flujo: 
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(11)/ Esciibirl 



IV. Disena e implementa un programa que permita evaluar la siguiente funcion dado un 
valor de X: 



r = 



3X si X< 10 

X 2 -3 si 10<X<20 

sl X > 20 
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Troyecto 




Cuarta etapa 

En esta ultima etapa culminaras el desarrollo de tu calculadora con guincha, para 
ello, debes realizar lo siguiente: 

1 . Abre el archivo de tu proyecto. 

2. Implementa las lineas de codigo necesarias para que se puedan almacenar las 
operaciones que vas realizando. 

3. Averigua e implementa como exportar las operaciones a una hoja de Excel. 
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